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Welcome to the Hewlett-Packard Computer Programming Course. We 
are very pleased to have you attend this training program and we will do 
our best to make your stay with us interesting and profitable. 

About Hewlett-Packard 

The Hewlett-Packard Company specializes in the manufacture of instru- 
ments and systems to satisfy many of the measurement and computation 
needs for science and industry. Today, Hewlett-Packard provides over 
1500 different products for electronic, chemical and medical instrumen- 
tation applications. 

Since its founding in Palo Alto almost thirty years ago, Hewlett-Packard 
has grown from a two-man operation Into a world-wide organization of 
more than 12,000 people, with an annual sales volume exceedir^ $225 
million. The company and its affiliates now have more than a dozen 
manufacturing plants including facilities in the United States, Western 
Europe and Japan. Sales and service offices are located in nearly every 
major city in the free world. 

About the Computer Programming Course 

The HP Computer Programming Courae has been developed to train per- 
sonnel in the use and operation of the HP computer systems. The course 
curriculum has evolved to its present level primarily as a result of sug- 
gestions by the many thoughtful and interested students who have pre- 
ceded you. In line with Hewlett- Packard* s corporate -wide policy regard- 
ing the quality of its training support, much time and effort has been ex- 
pended to provide you with this planned program for learning about com- 
puters and computer programming in general, and specifically about the 
Hewlett-Packard equipment which you already have or are planning to 
purchase. 
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Our experience, after training in excess of 300 students, has shown that 
our student experience profile breaks down as follows: 

1. 60% having no previous experience in computers. 

2. 23% having less than one year experience. 

3. 17% having more than one year experience. 

Based on these figures we have attempted to orient the level of training 
to the 60% group while still including some degree of challenge to the 
students with some previous computer programming experience. 

Our overall objective is to prepare each of you for the task you face in 
utilizing the computer system to solve your individual application prob- 
lems. In order to achieve this objective the combined efforts of both 
student and instructor will be required. 

For those of you with no previous experience the road will not be easy; 
however, the objective can be reached provided you make every effort 
possible to communicate with your instructors by your questions during 
and after class sessions. We believe you will find your individual in- 
structors to be capable and interested in your desire to learn. 

For those of you who have had some previous experience in programming 
a computer, the training program will provide answers to questions you 
may have and provide the "hands on" experience with the Hewlett-Packard 
software systems. Since your training program will be an easier one to 
adjust to we would like to ask your help in training those classmates of 
yours who may be having difficulty. By your willingness to contribute 
your ideas and efforts, the attainment of our objective goals to success- 
fully prepare all of you for the tasks you face, upon leaving us, will be 
assured. 

Training Staff 
Cupertino Division 
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HEWLETT-PACKARD 

COMPUTER PROGRAMMING COURSE 

Objectives: 



1. TEACH THE STUDENT HOW TO CREATE 
SIMPLE FORTRAN AND ASSEMBLY LANGUAGE 
COMPUTER PROGRAMS. 

2. PROVIDE EACH STUDENT WITH "HANDS ON" 
COMPUTER EXPERIENCE. 

3. TEACH THE STUDENT HOW TO USE STANDARD 
HEWLETT-PACKARD SOFTWARE. 
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HEWLETT-PACKARD 
COMPUTER PROGRAMMING COURSE 

TRAINING aids : 

1. OVERHEAD SLIDES 

2. STUDENT TRAINING MANUAL 

3. CLASSROOM EXERCISES 

4. HOMEWORK ASSIGNMENTS 

5. COMPUTER LABORATORY EXERCISES 
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THE ABACUS 

THE HISTORY OF COMPUTER DEVELOPMENT PROBABLY 
STARTED WITH THE INVENTION OF THE ABACUS. THIS DEVICE 
WAS CREATED IN CHINA APPROXIMATELY 600 BC. 




01234567 89 
THE ABACUS 



IT SHOULD BE NOTED THAT THE ABACUS IS STILL USED 
EXTENSIVELY IN THE ORIENT . 
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LOGARITHMS 

IN THE EARLY 17th CENTURY JOHN NAPIER INVENTED 
LOGARITHMS AND ALSO A MULTIPLICATION TABLE THAT WAS 
REPRODUCED ON PIECES OF BONE AND SUBSEQUENTLY 
REFERRED TO AS "NAPIERS BONES". 




"NAPIERS BONES" 



SHORTLY AFTER THE INVENTION OF LOGARITHMS WILLIAM 
OUGHTRED INSCRIBED LOGARITHMS ON SLIDING PIECES OF 
WOOD AND THE SLIDE RULE CAME INTO EXISTENCE. 
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PASCAL'S ADDING MACHINE 



IN 1642 BLAISE PASCAL, A FRENCH MATHEMATICIAN 
BUILT WHAT WAS PROBABLY THE WORLDS FIRST DESK 
CALCULATOR. 




pascal's adding machine (1642) 



THIS MACHINE WAS DESIGNED TO HELP PASCAL'S FATHER IN 
KEEPING THE BOOKS OF THE FAMILY STORE. 
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BABBAGE^S CONTRIBUTION 

THE NEXT MAJOR MILESTONE WAS CONTRIBUTED BY 
CHARLES BABBAGE. IN 1822 BABBAGE DEMONSTRATED HIS 

"DIFFERENCE ENGINE" A MACHINE DESIGNED TO PREPARE 
TABLES SUCH AS COMPOUND INTEREST, LOGARITHMS AND 
TRIGONOMETRIC FUNCTIONS, WITHOUT THE HELP OF A 
HUMAN OPERATOR. r~~^^m^~W'~T''~^ 




BABBAGE S DIFFERENCE ENGINE (1822) 
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THE PUNCHED CARD 



In 1890 Herman Hollerith invented the punched card. 

The original motivation for this invention was a desire 

to speed up the job of taking the census of the United States. 
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The format used to describe alphanumeric data in modern 
computers is called "h" or "HOLLERITH" format. 
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STEPS TO THE MODERN COMPUTER 



IN 1939 SAMUEL WILLIAMS OF BELL LABS BUILT THE RELAY 
COMPUTER. THIS WAS THE FIRST ELECTRICAL DIGITAL COMPUTER AND THE 
FIRST BINARY MACHINE. 

IN 1944 PROFESSOR HOWARD AIKEN DESIGNED THE HARVARD MARK I. 
THIS WAS THE FIRST OF THE LARGE SCALE GENERAL PURPOSE RELAY COMPUTERS 
BUILT DURING THIS PERIOD. 

IN 1946 J.P. ECKERT AND DR. J.W. MAUCHLY OF THE MOORE SCHOOL OF 
ENGINEERING DEVELOPED THE ENIAC. THIS WAS THE FIRST ELECTRONIC 
DIGITAL COMPUTER AND IT CONTAINED 18.000 VACUUM TUBES. 




THE ENIAC 
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THE MODERN COMPUTER 

By the 1950' s IBM and others were marketing vacuum tube 
computers that would perform 60 operations per second. 

In the late 1950's and early 1960 s vacuum tubes gave way 
to transistors and faster memories were built. 



HEWLETT-PACKARD 
COMPUTERS 



2116A 



2115A 



2114A 



2116B 



In 1966 HEWLETT-PACKARD entered the computer market 
and has since contributed a family of low cost high-speed computers 
using integrated circuits. 
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COMPUTERS MUST BE PROGRAMMED 


ASSUME THE 


FOLLOWING PROBLEM IS TO BE SOLVED BY A 


GIRL USING A DESK CALCULATOR - 




C + D 


IN MOST CASES THE GIRL WOULD HAVE TO BE PROVIDED WITH 


A PROCEDURE 


TO SOLVE THE PROBLEM. 


FOR example: 




STEP A, 


ENTER VALUE FOR C. 


STEP 2. 


ADD THE VALUE OF D. 


STEP 3. 


WRITE DOWN INTERMEDIATE RESULT 


STEP 4. 


ENTER VALUE FOR A. 


STEP 5. 


ADD THE VALUE OF B. 


STEP 6. 


DIVIDE BY THE VALUE ACHIEVED IN STEP 3. 


STEP 7. 


WRITE DOWN THE FINAL RESULT. 


IN A SIMILAR MANNER COMPUTERS ARE"PR0GRAMMED" TO SOLVE 


PROBLEMS. 





1-11 



LESSOIMI 

Introduction to Computers 



Programming Course 
Students Manual 



SPEED AND INTERCOMMUNICATION 



A DESK CALCULATOR IS CAPABLE OF PERFORMING COMPUCATED 
MATHEMATICAL PROCESSES SUCH AS DIFFERENTIATION AND 
INTEGRATION, HOWEVER, THE TIME REQUIRED TO SOLVE COMPLEX 
PROBLEMS USING THIS METHOD BECOMES PROHIBITIVELY LONG. 

ADVANTAGES OF A STORED PROGRAM DIGITAL COMPUTER 

1. SPEED - performs millions of operations in seconds. 

2. INTERCOMMUNICATIONS - digital data can be received 

or transmitted by the computer. 



PAPER TAPE 
READER 




HEWLETT-PACKARD 
COMPUTER 




TELETYPE 













HIGH-SPEED 
LINE 
PRINTER 


< 


► 


PAPER TAPE 
PUNCH 
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COMPUTER BLOCK DIAGRAM 



ACCEPTS DATA FROM 
PERIPHERAL DEVICES 


INPUT SECTION 




OUTPUT SECTION 





















CONTROLS ALL DATA 
TRANSFER OPERATIONS 
BETWEEN REGISTERS 
AND MEMORY 



CONTROL 
UNIT 



ARITHMETIC 
UNIT 



MEMORY 



A BASIC COMPUTER 



PRESENTS DATA TO 
■ PERIPHERAL DE- 
VICES 



PERFORMS ALL 
COMPUTER ARITH- 
METIC AND LOGIC- 
AL OPERATIONS. 



CONTAINS ALL 
PROGRAM DATA 
AND INSTRUCTIONS 
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INTRODUCTION TO NUMBER SYSTEMS 



HEWLETT-PACKARD computers operate on numbers in 
binary form; therefore, it is essential that we: 



1. REVIEW THE DECIMAL NUMBER SYSTEM 

2. INTRODUCE THE BINARY AND OCTAL NUMBER SYSTEMS 

3. INTRODUCE BINARY ARITHMETIC 

4. INTRODUCE NUMBER SYSTEM CONVERSION METHODS 

5. DISCUSS THE LIMITS OF THE COMPUTER'S ABILITY 
TO HANDLE LARGE NUMBERS 
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NUMBER SYSTEMS 



0,1,2,3,4,5,6,7,8,9 ARE THE TEN NUMERALS OF THE 
DECIMAL SYSTEM. DECIMAL VALUES LARGER THAN 9^ 
REQUIRE MORE THAN ONE DIGIT. FOR EXAMPLE, THE 
DECIMAL NUMBER 109 REALLY STANDS FOR'. 

(ixi0^) + (0x10^)+(9xi0^) 

(HUNDRED'S) + ( TEN'S ) + ( ONE'S) 

(100 ) + ( )+( 9 ) = 109,0 

IN general; 

ANY NUMBER= Nx b"+Nxb"''+ • ■ + N X N xbU Nxb° 

WHERE N= DIGIT 

b = BASE 

b°= 1 ( BY DEFINITION ) 
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BINARY NUMBERS 




and 1 are the TWO numerals of the binary system. Binary values 
laraer than 1 require more than one diait. For example, the BINARY 
number 1101101 really stands for; 


(1 x2^) + (1 x2^) + (0x2^*) + (1x2^) + (1x2^) + 


(0x2^) + (1x2°) 


(SIXTY- (THIRTY- (SIXTEEN'S) (EIGHT'S) ( FOUR'S) 
FOUR'S) + TWO'S) + + 


(TWO'S) ^ (ONE'S) 


(64) + (32) + (0) + (8) + (4) + 


(0) +(1)= 109^0 


THEREFORE: 

110 11012= ''09^0 
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OCTAL NUMBERS 

0,1,2,3,4,5,6,7 ARE THE EIGHT NUMERALS OF THE OCTAL 
SYSTEM. OCTAL VALUES LARGER THAN 7 REQUIRE MORE 
THAN ONE DIGIT. FOR EXAMPLE, THE OCTAL NUMBER 
155 REALLY STANDS FOR! 

(ix8^) + (5x8^) + (5x8^) 

SIXTY 

( FOUR'S) + (EIGHT'S) + ( ONE'S ) 

( 64 ) + ( 40 ) + ( 5 ) = 109,0 

THEREFORE- 



1 10110V 155 pH09 
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BINARY/OCTAL RELATIONSHIP 



HEWLETT-PACKARD COMPUTERS HAVE 16 BINARY DIGIJS. (BIT) 
WHEN BINARY DIGITS (BITS) ARE ARRANGED IN GROUPS OF 3, OCTAL 
VALUES CAN BE READ DIRECTLY. 

(SIGN) 



15 



14 13 12 



11 10 



ooooooooo 



8 





o 




o 




WHERE EACH 



AND EACH 
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NUMBER SYSTEM CONVERSION METHODS 

PROGRAMMERS MUST LEARN THE FOLLOWING NUMBER SYSTEM 

CONVERSION techniques: 



CONVERSION 




METHOD 


BINARY TO OCTAL 




BY INSPECTION 


OCTAL TO BINARY 




BY INSPECTION 


OCTAL TO DECIMAL 




BY FORMULA 


DECIMAL TO OCTAL 




BY FORMULA 



remember ; 

octal is used to represent binary numbers more efficiently 

si6n|.« number value ^ 

15 14 -13 12 11 10 9 8 7 6 5 4 3 2 1 

000000 001 101101- BINARY 
1 5 5 - OCTAL 
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• TO CONVERT THE OCTAL NUMBER 155 TO DECIMAL, PROCEED IN 
THE FOLLOWING WAY. 

1. Multiply the most significant octal digit by 8 



2. Add the next least significant octal digit, then multiply the 
result by 8 

3. Continue using step 2 above until the least significant digit 
is reached 

4. The least significant digit is added to the total but the result 
is NOT multiplied by 8. 

example: 

155 

CONVERT 155s DECIMAL ^-l— 

+ 5L 
13 

x8__ 
104 

109 DECIMAL RESULT 



OCTAL TO DECIMAL CONVERSION 
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TO CONVERT THE DECIMAL NUMBER i09 TO OCTAL PROCEED IN 
THE FOLLOWING WAY. 

Divide the decimal number by 8 and write q /109 ^ ^ REMAINDER 
down the remainder. 

Z. Divide the quotient of the previous step by ^/13 , ^ r^r-.* * .^.r^r-r^ 

J J *u-. A 8 ^ , +5 REMAINDER 

8 and write down the remainder. 1 

3. Repeat step 2 until the "new" quotient 8^4^+1 REMAINDER 
becomes zero. 



I 



READ 

OCTAL 

VALUE 



4. The octal value is read as follows: 

THE LAST REMAINDER IS THE MOST SIGNIFICANT OCTAL DIGIT. 
THE FIRST REMAINDER IS THE LEAST SIGNIFICANT OCTAL DIGIT. 

109io=1558 



DECIMAL TO OCTAL CONVERSION 
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BINARY ARITHMETIC 



In the computer a special logic circuit performs oddition ^ 
using binary arithmetic. Actual computer numbers are f 6 "BITS" 
long, however, for simplicity the following example uses only 
6 "BITS" 



EXAMPLE 



GENERATED 
^ CARRIES 



X o'o'i 1 1 

Y 110 1 
sum 1 1011 



RULES OF BINARY ADDITION 



carryI 

(IN) 


X 


Y 




SUM 


CARRY 
(OUT) 

























1 




1 








1 







1 








1 


1 







1 


1 










1 





1 





1 







1 


1 


1 










1 


1 


1 


1 




1 


1 
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TWO'S COMPLEMENT NUMBERS 



HEWLETT-PACKARD COMPUTERS USE THE TWO'S COM- 
PLEMENT ARITHMETIC TECHNIQUE. THE PROCESS OF 
"TWO'S COMPLEMENTATION" CHANGES A POSITIVE IN- 
TEGER VALUE TO NEGATIVE AND VICE-VERSA. 



FOR EXAMPLE: 



note: if sign =o, normal form (positive) 

IF sign TWO'S COMPLEMENT FORM 

(NEGATIVE) 



SIGN 



VALUE 







1 i 1 1 



A NORMAL NUMBER (POSITIVE) 



1 




10 
1 




ADD ONE 



10 1 



THE TWOS COMPLEMENT (NEGATIVE) 
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COMPLEMENTATION TECHNIQUES 

The decimal number lOSio when converted to octal appears 
as 15 5q. The example shows the two's complement 
operation performed on this value. 

EXAMPLE: 



SIGN BINARY OCTAL 






000 000 001 


101 


101 


( POSITIVE) 





00155 


1 


111 111 110 


010 


010 


/ ONE'S \ 
^COMPLEMENTS 


1 


77622 





000 000 000 


000 


001 


(ADO ONE) 





00001 


1 


111 111 110 


010 


01 1 ( 


NEGATIVE 
TWO'S COMPLEMENT 


)1 


77623 



NOTE THE MOST SIGNIFICANT OCTAL DIGIT REPRESENTS A SINGLE 
BIT. TO COMPLEMENT WITH OCTAL NUMBERS REMEMBER — 

1— COMPLEMENT THE SIGN DIGIT. (1 or 0) 

2- TAKE THE EIGHTS COMPLEMENT ON THE REMAINING 
DIGITS. 
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NEGATIVE NUMBER CONVERSIONS 

TO CONVERT A NEGATIVE DECIMAL NUMBER TO 16 BIT 
MACHINE FORM. 

1. ASSUME THE DECIMAL VALUE IS POSITIVE 

2. CONVERT TO OCTAL FORM 

3. TAKE THE TWO'S COMPLEMENT. (OR EIGHT'S COMPLEMENT) 



TO CONVERT TWO'S COMPLEMENT NUMBERS TO DECIMAL 
FORM. 

TAKE THE TWO'S COMPLEMENT. 

2. CONVERT TO DECIMAL 

3. AFFIX A MINUS SIGN TO THE DECIMAL RESULT 
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HARDWARE SOFTWARE 



A COMPUTER SYSTEM IS COMPOSED 
OF HARDWARE AND SOFTWARE 
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PERIPHERALS 

r — -n r 1 r 1 

L__p_J I j._J L — j._J 

I I I 
J I L 



INTERFACES FOR 

• TYPEWRITER 

• MAGNETIC TAPE 

• DVM PROGRAMMER 



OUTPUT 



|A- 


RE6ISTER 




B- 


REGISTER 



ARITHMETIC 



CORE _ 

(4096 LOCATIONS) 



MEMORY 



PERIPHERALS 

r 1 r T r- 



-1 
—J 



INPUT 



I 



I 



INTERFACES FOR 

• PUNCHED TAPE READER 

• MAGNETIC TAPE 

• DIGITAL VOLTMETER 



CONTROL 



INSTRUCTION 
REGISTER 



PROGRAM 
COUNTER 



MEMORY ADDRESS 
REGISTER 



MEMORY DATA 
REGISTER 



BASIC ELEMENTS OF COMPUTER HARDWARE 
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COMPUTER WORD FORMAT 



DATA FORMAT (INTEGER) 



|o|o|o|i|o|i|o|a|i|i|i|o|i|i 



EXAMPLE; 



+12357, 



8 



15 


14 |13 


12jll 10 


9|8 7 6|5 4 3|2 1 


SIGN 


INTEGE R 



INSTRUCTION FORMAT (MEMORY REFERENCE INSTRUCTION) 



15 


14 1 13 12 111 


10 


9|8|7|6|5 4 3|2 1 




INSTRUCTION 




MEMORY WORD ADDRESS 



|o|i|ijo|o|o|oioji|o|o 



FULL ADDRESS FORMAT 



EXAMPLE: "LOAD REGISTER "A" WITH THE CONTENTS OF 
LOCATION ZOOe" 



15 


14 13 12|11 


10 


9|8 7 6|5 4 3|2 1 




PAGE ADDRESS 


MEMORY WORD ADDRESS 



|o|o|o|i|i|i|i|i|i|iio|o|ojo 



EXAMPLE: MEMORY ADDRESS 17700. 
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MEMORY 

ADDRESSING & DATA TRANSFER CONCEPTS 

MEMORY DATA REGISTER 






1 


2 




77 












77D0 








7777 



MEMORY ADDRESS REGISTER 



A.) ASSUME MEMORY ADDRESS TTOOg CONTAINS 1001110000111100 

4 16 BITS ► 



2.) ALL DATA TO AND FROM THE MEMORY PASSES THROUGH THE 
MEMORY DATA REGISTER - READING WORD TTOOo PUTS 
lOOniOOOOl 11100 IN THE MEMORY DATA REGISTER. 



3) MEMORY ADDRESS REGISTER - HOLDS THE NUMBER OF THE WORD 
ADDRESSED IN MEMORY - TO READ THE CONTENTS OF MEMORY 
ADDRESS 77008 THE NUMBER 77000 IS PLACED IN THE MEMORY ADDRESS 
REGISTER. 
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COMPUTER REGISTERS 





MEMORY ADDRESS REGISTER 















CORE MEMORY 



MEMORY DATA REGISTER 



INSTRUCTION REG. 



ARITHMETIC 
AND 
LOGIC 
UNIT 



— ► 


PROGRAM COUNTER 













A REGISTER (ACCUMULATOR) 




— ► 







B REGISTER (ACCUMULATOR) 
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COMPUTER INSTRUCTIONS 

COMPUTER INSTRUCTIONS TAKE TWO BASIC FORMS. ONE 
FORM IS HUMAN ORIENTED, WHILE THE OTHER IS MACHINE 
ORIENTED. THE COMPUTER TRANSLATES FROM "MAN" TO 
"MACHINE" LANGUAGE. 



THE ABOVE INSTRUCTION MEANS; "LOAD REGISTER A WITH 
THE CONTENTS OF MEMORY LOCATION j". THE ASSEMBLY 

PROCESS CONVERTS "LDA J" TO THE MACHINE INSTRUC- 
TION 0602008. 

note: IN THIS EXAMPLE "j" IS ARBITRARILY REPRESENTING MEMORY 
LOCATION aOOfi. 



FOR example; 




ASSEMBLY PROCESS 
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INSTRUCTION EXECUTION SEQUENCE 



MEMORY ADDRESS REGISTER 



000100 



I 



CORE MEMORY 



I 



I 



MEMORY DATA REGISTER 



060 200 



I 



INSTRUCTION 
REGISTER 



PROGRAM COUNTER 



000 100 



A- ACCUMULATOR 



B- ACCUMULATOR 



EXAMPLE 
LDA J =060 200 



ADDER ETC. 



a. Instruction is Read from Memory 
INSTRUCTION IN LOCATION 100 -FETCH PHASE 



MEMORY ADDRESS REGISTER 



000 200 



I 



CORE MEMORY 



MEMORY DATA REGISTER 



060 200 



I 



INSTRUCTION 
REGISTER 



060 



PROGRAM COUNTER 



000 100 



A -ACCUMULATOR 



B - ACCUMULATOR 



b. End of Fetch Phase 



ADDER ETCJ 
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INSTRUCTION EXECUTION cont'd 



MEMORY WDRESS REGISTER 



OOP 200 



CORE MEMORY 



I 



I 



MEMORY DATA REGISTER 



077 777 



I 



INSTRUCTION 
REGISTER 



060 



PROGRAM COUNTER 



000100 



A- ACCUMULATOR 



077 777 



B- ACCUMULATOR 



EXAMPLE 
LDA J = 060200 



ADDER ETC. 



c. Instruction is Executed 

INSTRUCTION IN LOCATION 100 -EXECUTE PHASE 



MEMORY ADDRESS REGISTER 



000 101 



CORE MEMORY 



T T 



MEMORY DATA REGISTER 



077 777 



I 



INSTRUCTION 
REGISTER 



060 



PROGRAM COUNTER 



000101 



A - ACCUMULATOR 



077 777 



B - ACCUMULATOR 



d. End of Execute Phase 



ADDER ETC. -% 
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CORE MEMORY 




17 CORE PLANES PER 
MODULE. EACH CORE PLANE 
SUPPLIES ONE BIT OF THE 
COMPUTER WORD. (16 DATA 
BITS -I- PARITY BIT). 



4096 -Word 
Core Module 



4096 CORES PER MEMORY 
PLANE. ONLY ONE CORE ON 
EACH PLANE IS INTERROGATED 
WHEN A MEMORY LOCATION 

IS ADDRESSED. 



Memory Plane 
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TYPES OF COMPUTER INSTRUCTIONS 



THERE ARE THREE TYPES OF COMPUTER INSTRUCTIONS 



Memory Reference 





Register Reference 




Input /output 
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MEMORY REFERENCE INSTRUCTION 

USED FOR 

READING DATA FROM MEMORY 

STORING DATA IN MEMORY 

ARITHMETIC OPERATIONS 

LOGIC OPERATIONS 

ALTERATION OF PROGRAM COUNTER 

CONTROLLING PROGRAM LOOPS 



N — 


6 BITS 




— ► 


4 




10 BITS — 


P\ 


i5 




11 


10 


9 


8 


7 6 


5 4 3 


2 10 


INSTRUCTION 


MEMORY ADDRESS 






Y 












Y 





SELECTS A OF A4 INSTRUCTIONS SPECIFIES THE MEMORY WORD ADDRESS 

AND DETERMINES ADDRESSING MODE 
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REGISTER REFERENCE INSTRUCTIONS 



MOVE DATA WITHIN AND BETWEEN 
ACCUMULATORS 

^ CLEAR OR COMPLEMENT ACCUMULATORS 
^ TEST BITS IN ACCUMULATORS 



INSTRUCTION 
FORMAT 



4 BITS 



INSTRUCTION 



1 BIT 



B 



11 BITS 



MICRO INSTRUCTION 



/ 



THE CODE 0000 IN THESE BITS 
IDENTIFY WORD AS REGISTER 
REFERENCE INSTRUCTION 



DETERMINES THE OPERATION 
TO BE DONE 



SPECIFIES 
A OR B REGISTER 
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INPUT/OUTPUT INSTRUCTIONS 



READ DATA FROM DEVICES 
OUTPUT DATA TO DEVICES 
CHECK STATUS OF DEVICES 



i5 i4i3i2 


i1 


10 9 


8 7 6 


5 4 312 i 


INSTRUCTION 


% 


INSTRUCTION 


I/O SELECT CODE 



THE CODE iOOO IDENT- 
IFIES WORD AS AN 
INPUT/OUTPUT INSTRUC- 
TION. 



DETERMINES SPECIFIC 
OPERATION TO BE PER- 
FORMED. 



SPECIFIES 
A OR B REGISTER 




IDENTIFIES WHICH INPUT OR 

OUTPUT DEVICE THE INSTRUC- 
TION REFERS TO. 
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HP-INTERFACE CARD 
I/O Interface cards are simple to install or rearrange 
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PRIORITY INTERRUPT SYSTEM 

THE INTERRUPT SYSTEM ALLOWS THE COMPUTER TO PERFORM 
USEFUL WORK WHILE A PERIPHERAL DEVICE IS COMPLETING 
A CYCLE. EACH INTERRUPTING DEVICE IS UNIQUELY IDENTI- 
FIED AND ASSIGNED A PRIORITY TO PREVENT SIMULTANEOUS 
INTERRUPT REQUESTS FROM MORE THAN ONE DEVICE. 

FOR example: 

ASSUME PROGRAM "A" IS A LARGE INTEGRATION ROUTINE, AND PRO- 
GRAM "B" IS A ROUTINE THAT HANDLES PAPER TAPE INPUT DATA. 



NORMAL OPERATION 



COMPUTER MEMORY 



INTERRUPT 




INTERRUPT CAUSES EXECUTION 
OF PROGRAM "Bf' TO BEGIN. PRO- 
GRAM "A" RESUMES OPERATION 



AT THE COMPLETION OF PROGRAM 
"B". 



InterrupA 




INPUT CHANNEL 
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INPUT/OUTPUT DATA TRANSFERS 

Data transfers that do not use ttie interrupt system are made under 
program control, Tlie controlling program must cause the computer 
to "wait" for the slower peripheral device. The steps in a nan- interrupt 
data input program are: 

1 - TURN THE INTERRUPT SYSTEM OFF. 

2 - START THE DEVICE AND TURN THE READY FLAG OFF 

3 - WAIT FOR THE DEVICE READY FLAG TO COME ON. (WAIT LOOP) 

4 - WHEN THE FLAG COMES ON, TRANSFER DATA TO COMPUTER. 

5 - HAS ALL THE DATA BEEN TRANSFERRED? 

NO, GO TO STEP 2 
YES, GO TO STEP 6 

6 - HALT THE COMPUTER 



NOTE: THE COMPUTER WILL SPEND THE MOST TIME ON STEP 3 
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COMPUTER SOFTWARE 

SOFTWARE IS THE GENERAL TERM GIVEN TO ALL PROGRAMS 
AND ROUTINES THAT EXTEND THE CAPABILITY OF THE COM- 
PUTER. SOFTWARE CAN BE DIVIDED LOOSELY INTO FOUR 
CLASSES: 

1. TRANSLATORS - PROGRAMS WHICH TRANSLATE HUMAN - 

ORIENTED LANGUAGES INTO MACHINE 
LANGUAGES. 

2. CONTROL SYSTEMS - PROGRAMS WHICH TAKE CARE OF ALL 

FUNCTIONS ESSENTIAL TO OPERATION 
OF THE COMPUTER SYSTEM. 

3. UTILITY ROUTINES - PROGRAM EDITORS, PROGRAM DEBUG- 

GING ROUTINES. HARDWARE DIAGNOSTICS. 

THE ABOVE SOFTWARE IS NORMALLY SUPPLIED BY THE COM- 
PUTER MANUFACTURER. 

4. APPLICATIONS PROGRAMS - THESE ENABLE THE COMPUTER 

TO BE EFFECTIVE IN A SPECIFIC 
APPLICATION. 

APPLICATIONS PROGRAMS ARE NORMALLY CREATED BY THE USER. 
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HEWLETT-PACKARD SOFTWARE 

TRANSLATION PROGRAMS 

FORTRAN, ALGOL Qnd"BASIC" COMPILERS 
HP SYMBOLIC ASSEMBLER 

CONTROL SYSTEM 

BASIC CONTROL SYSTEM 

UTILITY ROUTINES 

SYMBOLIC EDITOR 
LIBRARY ROUTINES 

DEBUGGING ROUTINE 
PREPARE CONTROL SYSTEM 
HARDWARE DIAGNOSTICS 

PREPARE TAPE SYSTEM 
SYSTEM INPUT OUTPUT DUMP 
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PROGRAMMING LANGUAGES 



MACHINE 
LANGUAGE 

OliOOOHOOiOOOOi 

OiOOOOilOOiOOOiO 
OiOOOOilOOiOOOii 
0Hi0011 00i00100 



ASSEMBLY 
LANGUAGE 




THE ASSEMBLER PERFORMS 
THIS TRANSLATION 



COMPILER 
LANGUAGE 

D=AtB+C 



THE COMPILER PERFORMS 
THIS TRANSLATION 
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SOURCE PROGRAM IN ASSEMBLY LANGUAGE 



HEWLETT-PACKARD ASSEMBLER CODING FORM 

|mcx>..mm.. I. r. smart h*" 25 OCT 67 h^^- SQUARE ROOT DEMO I"" 1 2 ~| 

I i 10 IS K JS » M 40 4i 10 H ftO 61 fl, '2 «ti 
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ASSEMBLY PROCESS 



ASSEMBLER 



PASS1 

SOURCE ' 
PROGRAM 

PASS 2 



fsOURCE 



— -1 



PROGRAM 



USER PROGRAM WRITTEN 
IN ASSEMBLY LANGUAGE 



HEWLETT-PACKARD 

COMPUTER 



OBJECT 

PROGRAM 



USER PROGRAM IN BINARY 
LANGUAGE 



ASSEMBLY 
LISTING 



1. ASSEMBLER PROGRAM IS LOADED INTO THE COMPUTER. 

2. SOURCE PROGRAM IS PROCESSED BY THE ASSEMBLER, PRODUCING THE 
OBJECT PROGRAM TAPE AND THE ASSEMBLY LISTING IN A TWO PASS 
OPERATION. 
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ASSEMBLY LISTING 



A 

X— ^''^-^ 


B 

^— ^^-^ 


c 









/* 






0001 






ASMB* 


R>L*B 


0002 


00000 






NA^3 


SQDEM 


0003 








ENT 


SQFNT 


OOOA 








EXT 


. DI . > • lOR. * .DTA . * SQRT> . I OC . 


000 5* 












0006 








COM 


A(2 ) 


0007* 












0008 


00000 


000000 


SQENT 


NOP 




0009 


00001 


016005X 




JSE 


• IOC. 


0010 


00002 


020002 




OCT 


20002 


001 1 


00003 


026001R 




JMP 


*-2 


0012 


00004 


000045R 




DEF 


MSG 


0013 


00005 


000016 




DEC 


1 4 


001^* 












001 5 


00006 


016005X 




JSB 


.IOC 


0016 


00007 


040002 




OCT 


40002 


0017 


00010 


002020 




SSA 




0018 


0001 1 


026006R 




JMP 


*-3 


0019* 












0020 


00012 


002404 


5Q1 


CLA* 


INA 


0021 


00013 


006404 




CLB> 


INB 


0022 


00014 


1600 1 X 




JSB 


• DIO. 


0023 


00015 


000000 




ABS 





002/1 


00016 


000022R 




DEF 


S02 


0025 


00017 


016002X 




JSB 


. lOR. 


0026 


00020 


P16006X 




DST 


A 




00021 


OOOOOOC 








0027* 












0028 


00022 


016007X 


SQ2 


DLD 


A CALL SQUARE ROOT 




00023 


OOOOOOC 








0029 


00024 


016004X 




JSB 


SQRT 


0030 


00025 


016006X 




DST 


A 




00026 


OOOOOOC 








0031 


00027 


002404 




CLA> 


INA 


0032 


00030 


002004 




INA 




0033 


00031 


006400 




CLB 




0034 


00032 


016001X 




JSB 


.DIO. 
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PROGRAMMER 



C Label 

1 



30 



Statement 
40 



55 



60 
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FORTRAN COMPILATION PROCESS 



FORTRAN COMPILER 
PASS1 



FORTRAN COMPILER 
PASS 2 



SOURCE PROGRAM 



• USER PROGRAM 
WRITTEN IN FORTRAN 
LANGUAGE 



HEWLETT- PACKARD 
COMPUTER 



INTERMEDIATE 
TAPE 



HEWLETT-PACKARD 
CONPUTER 



COMPILE LISTING 



• LISTING OF EACH SOURCE 
PROGRAM STATEMENT 



T 



OBJECT PROGRAM 



• USER PROGRAM IN 
BINARY LANGUAGE 



ASSEMBLY LISTING 



1 ASSEMBLY LISTING OF FORTRAN CODE 



1- FORTRAN COMPILER PASS 1 IS LOADED INTO THE COMPUTER 

2 - SOURCE PROGRAM TAPE IS PROCESSED, BY THE COMPILER, PRODUCING THE INTERMEDIATE 

TAPE AND THE COMPILE LISTING. 

3 - FORTRAN COMPILER PASS 2 IS LOADED INTO THE COMPUTER 

4 - INTERMEDIATE TAPE IS PROCESSED, PRODUCING THE OBJECT PROGRAM TAPE a THE ASSEMBLY LISTING 



1-48 



LESSONI 

Introduction to Computers 



Programniing Course 
Students Manual 



USING THE BASIC CONTROL SYSTEM 



THE B.C.S. IS USED TO LOAD OBJECT PROGRAMS PRODUCED BY THE FOR- 
TRAN COMPILER AND THE SYMBOLIC ASSEMBLER. 



BASIC CONTROL 
SYSTEM 



OBJECT 

PROGRAM 



FORTRAN 
LIBRARY 



HEtEII-PACKARO 

COMPUTER 



RELOCATING 
LOADER 
LISTING 



® LOAD THE B.C.S. TAPE 
INTO THE COMPUTER. 

© PROCESS (LOAD) THE 
OBJECT PROGRAM TAPE. 

@ PROCESS (LOAD) THE 
REQUIRED LIBRARY ROU- 
TINES. 



note: the basic control 
system also contains 

subroutines that are 

used to control the 

input/output equipment. 
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UTILITY PROGRAMS 


NAME 


FUNCTION 


rUK 1 KAN- LIBRARY — 


Used primarily with compiler object programs. 
Standard mathematical subroutines for evaluating 
SIN, COSINE, SQUARE ROOT and other 
functions are found in the library. 


PREPARE CONTROL SYSTEM - 


Used to create a BASIC CONTROL SYSTEM 




tailored to a specific hardware configuration. 


HARDWARE DIAGNOSTICS 


Used primarily in hardware maintenance to check 
the operation of the computer or peripheral 
equipment. 


SYSTEM INPUT OUTPUT DUMP- 


Used to provide input-output flexibility for all 
HEWLETT-PACKARD standard software 
systems. 


PREPARE TAPE SYSTEM 


Used to create a magnetic tape operating 
system. 


SYMBOLIC EDITOR 


Used to make insertions, deletions, or 
replacements in source language program tapes. 
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EXAMPLE OF PROGRAM EDITING 

ORIGINAL SOURCE EDIT FILE, SHOWING CODING NEW SYMBOLIC FILE 
PROGRAM NEEDED TO DELETE STATE- (SOURCE PROGRAM) 
MENTS 2 THROUGH 4 FROM PRODUCED BY EDITOR 
SOURCE PROGRAM 






Label Operation Operand 
1 5^^ ID 




Label Operation 




Label Operation 
1 "5 AC 


Operand 

) 






































1 1 

L,D,A 




1 1 1 1 1 1 1 

P,R|S,E.T, , , 












1 1— 1 H- 




1 1 
1 1 




1 1 1 1 1 1 1 1 1 






C,MA 


JL 


I,N,A, , , , ( 






4 












LM 




1 Ij 

P.R.S.E.T, , . . . 






STA 




T,g,N,T, , , : 


1 1 1 1 














m 




1 . • ■ 1 . • 1 t 










C,N,T . . 

1 1 1 1 1 1— 1 
































• 1 1 1— 














1 1 














1 1 1 1 1 1 1 




1 1 1 1 
1 1 1 1 








i 






1 1 




• • ■ ' 






— 1 — 1— . 
1 1 






















1 1 




• • ■ 1 1 1 • • • 

1 1 1 1 ■ 1 \ ^ 














1 ( 1 1 1 t/ 
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EDITING PROCESS 



SYMBOLIC EDITOR 



EDIT FILE 
(CHANGES) 




HEWLETT-PACKARD 
COMPUTER 



SYMBOLIC FILE 
NEW) 



LISTING 



1 - SYMBOLIC EDITOR PROGRAM IS LOADED INTO THE COMPUTER 

2 - THE EDIT FILE IS LOADED INTO THE COMPUTER 

3 - THE ORIGINAL SYMBOLIC FILE IS PROCESSED, PRODUCING A NEW SYMBOLIC FILE 



NOTE: LISTING A SYMBOLIC FILE REQUIRES A SECOND PASS 
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FORTRAN/ASSEMBLER 
PROGRAMMING ENVIRONMENT 
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S.I.O. CONFIGURATION PROCESS 



(SYSTEM INPUT OUTPUT) 



S.I.O 
TELEPRINTER 
DRIVER 



TAPE READER 
DRIVER — 2 




S.I.O 

TAPE PUNCH 
DRIVEP ' 



S.I.O. 

DUMP 4 



PHASE 1 





^EtEII-PACKARO 






COMPUTER 





CONFIGURED 
S.I.O. DRIVER 
TAPE 



STANDARD SOFTWARE SYSTEMS 



FORTRAN 
ALGOL 

ASSEMBLER 

cvMoni 1^ cniTno CONFIGURED 
SYMBOLIC EDITOR SIO DRIVER 

TAPE 1 



STANDARD 
SOFTWARE 
SYSTEM 2 



S.I.O. 

DUMP 3 





HEtEII- 

COMPUTER 



PHASE 2 
(optional) 



CONFIGURED 
STANDARP SOFT- 
WARE SYSTEM 
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B.C. S. CONFIGURATION PROCESS 



(BASIC CONTROL SYSTEM) 



INPUT/OUTPUT 
DRIVER(S) 



INPUT/OUTPUT 
CONTROL SYSTEM 




RELOCATABLE 
LOADER 



PCS 
PREPARE CONTROL 

lYSTEM . 





HEWLETT-PACKARD 




COMPUTER 



CONFIGURED" 
BASIC CONTROL 
SYSTEM 



A BASIC CONTROL SYSTEM IS "TAILORED" TO THE HARDWARE CONFIGURATION 
OF THE SYSTEM. 

A. THE P.C.S CONTROL PROGRAM IS LOADED 

2. THE INPUT/OUTPUT DRIVER (S) MODULE IS PROCESSED. 

3. THE INPUT/OUTPUT CONTROL SYSTEM MODULE IS PROCESSED 

4. THE RELOCATABLE LOADER MODULE IS PROCESSED 

5. THE "CONFIGURED" B.C.S. TAPE IS PRODUCED. 
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THE COMPONENTS OF A COMPUTER PROGRAM 



MOST COMPUTER PROGRAMS CONSIST OF THREE PARTS 
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EXAMPLE - 



C START } 



1 


r 


INPUT 




f 


► 


COMPUTE 




f 


OUTPUT 




f 



NO 




DONE? 
YES 



PAUSE 



DEFINING THE PROBLEM 



problem ! solve y=a+b^x 

where: asb are entered on the keyboard 

x takes on the values! 
xi -initial value ofx 
xf- final value of x 
xd- incremental value for x 



( START 3 



SOLUTION STEPS 

1. ASK FOR A, B, XI, XF, XD 

2. READ A, B, XI, XF, XD 

3. INITIALIZE (X = XI) 

4. CALCULATE ( Y = A + B ^ X 

5. WRITE X AND Y 

6. IF X<XF, GO TO STEP 7. 
IF X>XF, GO TO STEP 9. 

7. ADD XD TO X 

8. GO TO STEP 4 

9. PAUSE 
10. WHEN RUN IS PUSHED, 

GO TO STEP 1. 



8 



ASK 1 
A,B,XI 


■OR 

,xf;<d 




r 


READ(i,9f) 
A,B,XI,XF,XD 




r 


INITIALIZE 
X=XI 


¥ 


r 




COMPUTE 
Y=A + B-K-X 




r 


WRI 

• X= 


TE 
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EXAMPLE- CODING THE PROGRAM 




ASK FOR 
DATA 



C 



READ 



I initializeI 



[ 



COMPUTE 



WRITE 
ANSWERS 



I INCREMENT^ 



[ 




.TEST^ 

pause" 
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COMPILING THE PROGRAM 



ASSEMBLY LISTING 




1 Load the FORTRAN pass - 1 tape. 

2 Read the SOURCE program. 

3 Load the FORTRAN pass - 2 tape. 

4 Read the INTERMEDIATE tape. 

5 At this point compilation is complete. 



RELOCATABLE 
BINARY OBJECT 
PROGRAM 
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LOADING THE OBJECT PROGRAM 



JASIC CONTROL 
SYSTEM 



RELOCATABLE 

OBJECT 

PROGRAM® 




H[t[II- PACKARD 

COMPUTER 




LIBRARY 
ROUTINES ® 



I 
I 
I 

I 



LOADER 
LISTING AND 
MEMORY MAP 

® 



I ABSOLUTE ^, 
H BINARY 
|^(OPTlONAUl_^ 



1 - LOAD THE BASIC CONTROL SYSTEM TAPE. 

2 - PROCESS THE OBJECT PROGRAM TAPE . 

3- PROCESS THE LIBRARY TAPE. 

4 - THE LOADER LISTING ENDS WITH THE MESSAGE "^^RUN" 



5 - DEPRESSING THE "RUN" PUSHBUTTON ALLOWS PROGRAM EXECUTION TO BEGIN. 
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EXAMPLE- THE PROGRAM IN EXECUTION 



ENTER A, B, XI, XF, XD 




1,2.1,10, 
(X,Y) = 
(X,Y) = 
(X,Y) = 
(X,Y) = 
(X.Y) = 
(X.Y) = 
(X.Y) = 
(X,Y) = 
(X,Y)= 
(X,Y)= 
PAUSE 
ENTER A 



000 



2.0000 
3.0000 
4.0000 
5.0000 
6.0000 
7. 0000 
8.0000 
9.0000 
10.0000 



, B. XI, XF, XD 




2.4,1.10,1 
(X,Y) = 
(X.Y) « 
(X.Y) = 
(X.Y) = 
(X.Y) = 
(X,Y) = 
(X.Y) = 

(X.Y) = 
(X.Y) « 

(X.Y) = 

PAUSE 



1 . 0000 
2.0000 
3.0000 
4. 0000 
5.0000 
6.0000 
7.0000 

8.0000 
9.0000 
10.0000 



3.0000 
5.0000 
7.0000 
9.0000 
11.0000 
13«0000 
15.0000 
17.00 00 
19.0000 
21.0000 



6.0000 
10.0000 
1 4.0000 
1 8,0000 
22,0000 
26.0000 
30.0000 

34.0000 
38«0000 

42.0000 



THE REQUEST FOR VALUES 



OPERATOR'S RESPONSE 



THE COMPUTED ANSWERS 



THE PROGRAM PAUSES 

THE RUN BUTTON IS PUSHED 



TELETYPE KEYBOARD FUNCTIONS 



^ = Carriage Return Key 
LR = Line Feed Key 
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Objectives 

Introduction to FORTRAN 

FORTRAN Operating Environment 

The FORTRAN Character Set 

The FORTRAN Coding Form 

Using the FORTRAN Coding Form 

FORTRAN Statement Label Rules 

Comments and Continuation Statements 

The FORTRAN Language Components 

Statements 

Functions 

Constants 

Variables 

Operators 

Arithmetic Statements 
FORTRAN Arithmetic 



2-1 


Algebraic Operations in FORTRAN 


2-17 


2-2 


A Word of Caution 


2-18 


2-3 


Legal Intermixing of Integer and Real Values 


2-19 


2-4 


Evaluation Problem 


2-20 


2-5 


Summary 


2-21 


2-6 


Sample Problem - In Line Coding 


2-22 


2-7 


The READ Statement 


2-23 


2-8 


The WRITE Statement 


2-24 


2-9 


The FORMAT Statement 


2-25 


2-10 


The "\" Format 


2-26 


2-11 


The "F" Format 


227 


2-12 


Using the "1" and "F" Format 


2-28 


2-13 


Free Field Input 


2-29 


2-14 


Sample Problem - Free Field Data Input 


2-30 


2-15 


The Quote (" ") Format 


2-31 


2-16 


Sample Problem - Data Output 
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LESSON n OBJECTIVES 

THE PRIMARY OBJECTIVE OF LESSON n IS: 

EXPLAIN JUST ENOUGH OF FORTRANS DO'S AND DONT'S 
TO ENABLE THE STUDENT TO: 

1 - WRITE A SIMPLE FORTRAN PROGRAM 

2 - KEYPUNCH THE PROGRAM 

3 - COMPILE THE PROGRAM 

4 - LOAD AND EXECUTE THE PROGRAM 

THE METHOD OF ^'LEARNING BY DOING" WILL BE USED WHENEVER 
POSSIBLE IN THIS COURSE. 
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AN INTRODUCTION TO 

FOR MULA TRANSLATION 

FORMULATID STATIMiNT 

X=B^B-4.^A^C 



YOU WILL: 

t) GET ACQUAINTED WITH FORTRAN 
2,) WRITE FORTRAN PROGRAMS 
3J OPERATE THE COMPUTER 
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FORTRAN OPERATING ENVIRONMENT 




COMPILER 



FORTRAN 
CODING 
SHEET 



SOURCE 
PROGRAM 



COMPILE PHASE 



HEWLETT-PACRARO 
COMPUTER 



LISTINGS 




LOAD PHASE 



EXECUTE PHASE 
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A 


THROUGH Z 





THROUGH 9 




SPACI 




EQUALS 


+ 


PLUS 




MINUS 




ASTERISK 


/ 


SLASH 


( ) 


PARENTHESES 


/ 


COMMA 


$ 


DOLLAR SIGN 


• 


DECIMAL POINT 


f f 


QUOTATION MARK 


THE FORTRAN CHARACTER SET 
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[M12116A FORTRAN CODING FORM 




M025T 


PROGRAMMER 


DATE 1 PROGRAM j PAGE OF 




Q STATEMENT 
C Lobel 7 

1 5 6 7 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 
















































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































































1 5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 

JJ-ZERO 0= ALPHA O t C« 1 - ONE 1= ALPHA I LINE TERMINATED BY RETURN / LINE FEED (R/LF) 
2 - TWO Z = ALPHA Z LINE IS DELETED BY RUBOUT BEFORE R/LF 
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LABEL 



STATEMENT 



r 


T 


N 


J— 


1 

L 




A 

A 


-X- 


D 


































































p 


P 

n 


n 
u 




p 


A 
A 


IVI 




r 


n 
u 


p 


1 


M 
IN 










































1 






c 
c 


A 
A 


u 


/ 

V 


A 
1 


-1- 




\ 


p 
n 




1 


LJ 

n 


c 
c 


1 


A 
A 








































X 




R 








c 





S 


( 


T 


H 


E 


T 


A 


) 








































Y 




R 








s 


I 


N 


( 


T 


H 


E 


T 


A 


) 


























\ 














W 


R 


I 


T 


E 


( 


2 


_2_ 


3 


) 


X 




Y 










































3 




F 





R 


M 


A 


T 


( 


It 


( 


X 


J.. 


Y 


) 






II 


-1, 


2 


F 


1 


2 


• 


4 


) 
























P 


A 


U 


s 


E 






























































G 







T 

































































E 


N 


D 


































































E 


N 


D 


s 


































































































































































































1 5 6 7 

= ZERO 0=ALPHA 



10 

I0R1=0NE 
2= TWO 



15 

I=ALPHAI 
2= ALPHAS 



20 25 30 35 

LINE TERMINATED BY RETURN/LINE FEED 
LINE IS DELETED BYRUBOUT BEFORE 




USING THE FORTRAN CODING FORM 
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FORTRAN STATEMENT LABEL RULES 



1. LABELS ARE USED FOR REFERENCE BETWEEN PROGRAM STATEMENTS. 

2. THE LABEL MAY CONSIST OF i-4 NUMERIC DIGITS PLACED IN ANY OF 
THE FIRST FIVE POSITIONS OF A STATEMENT LINE. NO DUPLICATE 
LABELS ARE PERMITTED. 

3. THE NUMBER IS UNSIGNED AND IN THE RANGE 1 TO 9999. THE LABELS 
DO NOT HAVE TO BE IN NUMERICAL SEQUENCE. 

4. IMBEDDED SPACES AND LEADING ZEROS ARE IGNORED. 

5. IF NO LABEL IS USED THE FIRST FIVE POSITIONS OF THE STATEMENT 
LINE MUST BE BLANK. 



EXAMPLES 



1 


2 


3 


4 


5 










1 








1 




9 


9 


9 


9 




9 




9 


9 


9 








5 


A 


2 












A 


B 


C 


D 




2 


3 


• 


5 




3 


4 


5 


6 


7 













VALID LABELS 



INVALID LABELS 



2-7 



LESSON IL 

Introduction to HP FORTRAN 



Programming Course 
Students Manual 



COMMENTS AND CONTINUATION STATEMENTS 

COMMENTS ARE IDENTIFIED BY THE CHARACTER "C" IN COLUMN A, 
POSITIONS 2-72 MAY CONTAIN THE COMMENT. 

CONTINUATION STATEMENTS ARE IDENTIFIED BY ANY CHARACTER OTHER 
THAN "SPACE OR ZERO" IN COLUMN 6 AND DO NOT CONTAIN A "C 
IN COLUMN 1. 

UP TO FIVE CONTINUATION LINES PER STATEMENT ARE PERMITTED. 
COLUMNS 7-72 MAY BE USED FOR THE CONTINUATION STATEMENT. 

EXAMPLES: 



C LABEL 

1 5 



10 



15 



20 



65 



70 



75 



80 



C 


T 


H 


I 


S 




I 


S 




A 


N 




E 


X 


A 


M 


P 


L 


E 







F 




A 




C 





M 


M 


E 


N 


Ti 
















c 












































t 


































c 








A 




C 





N 


T 


I 


N 


U 


A 


T 


r 





N 




E 


X 


A 






L 


E 






¥r 






^1 




























W 


R 


r 


T 


E 


( 


2 




i 





) 



























































F 





R 


M 


A 


T 


( 


/ 


II 


F 





R 


T 


R 


A 


N 




P 


R 





6 


R 


A 


M 


M 


I| 


























A 


N 


G 




E 


X 


A 


M 


P 


L 


E 







F 




A 









N 


T 


I 


N 


U 


A 


T 


r 1 


























2 





N 




S 


T 


A 


T 


E 


M 


E 


N 


T 


il 


) 
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FIXID POINT 



THE FORTRAN LAHCUACE COMPONENTS 

i 

---(JCONS 



CONSTANTS 



12.34 



MEGA 



VARIABLES 




FLOATING POINT 



ALPHA 



'-I- ADDITION 

SUBTRACTION 



SIRVICi 
MATH 
LOGICAL 




< operators) 



(statements) 



< functions) 



^ MULTIPLICATION 
/ DIVISION 
\m(r IXPONINTIATION 



EXECUTABLE TYPES 


• 


ARITHMETIC 


• 


CONTROL 


• 


INPUT/OUTPUT 


NON- 


-EXECUTABLE TYPES 


• 


SPECIFICATION 


• 


SUB-PROGRAM 


• 


FORMAT 
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STATEMENTS 




i ) EXECUTABLE TYPES 




NON-EXECUTABLE TYPES 


A- ARITHMETIC 




A- SPECIFICATION 


B - CONTROL 




1. DIMENSION 


1. CO TO 

2. IF 




2. COMMON 




3. EQUIVALENCE 


3. DO 

4. CALL 




B - SUB-PROGRAM 


5. PAUSE 




1. FUNCTION 


6. CONTINUE 




2. PROGRAM 


7. RETURN 




3. SUBROUTINE 


8 END 




C - FORMATS 


C- INPUT/OUTPUT 




1. OUOTE 


1 RFAD 




2. T 






3. F 


FORMATTED 




4. SLASH 


2. WRITE 




5. H 


3. REWIND 




6. X 


4. BACKSPACE 




7. E 


5. E/VD F/Lf 




8. A 
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FUNCTIONS 




GROUP 


TYPE 


SYMBOL 




TKANarER alvN 


SIGN 


SERVICE 


FLOAT 


FLOAT 




FIX 


IFIX 




ABSOLUTE VALUE 


ABS 




EXPONENTIAL 


EXP 




NATURAL LOGARITHM 


ALOG 


MATH 


TRIGONOMETRIC SINE 


SIN 


TRIGONOMETRIC COSINE 


COS 




TRIGONOMETRIC TANGENT 


TAN 


> 


HTrERBOLIC TANvENT 


TANH 

1 n m n 




SQUARE ROOT 


SORT 




ARCTANGENT 


ATAN 




BOOLEAN AND 


lAND 


LOGICAL 


BOOLEAN OR 


lOR 




BOOLEAN NOT 


NOT 
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CONSTANTS 

VARIABLES 
OPERATORS 
STATEMENTS 

FUNCTIONS 



=ANY QUANTITY REPRESENTED BY A NUMERIC VALUE 



FIXED POINT CONSTANTS 

IS NO DECIMAL POINT. THE NUMBER 

MUST BE IN THE RANGE -32768 TO +32767. THE VALUE IS REPRESENTED 
BY ONE COMPUTER WORD. 

EXAMPLES- 7, -5, +132, 697, 1234, 32715 



FLOATING POINT CONSTANTS 



REPRESENT REAL NUMBERS. THERE 
MUST BE A DECIMAL POINT. THE 



NUMBER MUST BE IN THE RANGE -lO^^TO -flO^^. THE NUMBER YIELDS 
A PRECISION OF SEVEN DECIMAL DIGITS AND IS RBPRBSiNTBD BY 
TWO COMPUTER WORDS; 

THE FRACTION PLUS SIGN UTILIZES 24 BITS. 

THE EXPONENT PLUS SIGN UTILIZES • BITS. 

EXAMPLES- 7.,7.0, -7.,52.3, 4.1 2,.17, 75. 

NOTEi IN FORTRAN .... 3 IS NOT THE SAME AS 3. 

THEREFORE nqT AiLE 

3 +5. PERMITTED * PERMITTED 
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CONSTANTS 

VARIABLES 

OPERATORS 
STATEMENTS 
FUNCTIONS 



= ANY QUANTITY REPRESENTED BY AN 
ALPHANUMERIC SYMBOL 



FIXED POINT VARIABLES they represent integer numbers. 

THERE IS NO DECIMAL POINT. THEY RANGE FROM -32768 TO -I-32767 

EXAMPLES: I, J, K, U M, N, IKE, JOHN, KEN, 



FLOATING POINT VARIABLES THEY REPRESENT RIAL NUMBERS. 

THEY ARE IN FLOATING POINT REPRESENTATION. 
THEY RANGE FROM -lO'^TO +^0^^ 



EXAMPLES: A, B, • • H, 0, P, • • • Z, ALPHA, BETA, SIGMA, 

note: a variable name is composed of 5 or LESS ALPHANUMERIC 
CHARACTERS. 
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CONSTANTS 
VARIABLES 

OPERATORS 

STATEMENTS 
FUNCTIONS 



= SPECIAL CHARACTERS USED TO REPRESENT 
ARITHMETIC OPERATIONS 



WHEN OPERATORS ARE USED IN A STATEMENT TO FORM AN EXPRESSION, 
THE COMPILER EVALUATES THE EXPRESSION FROM LEFT TO RiOHT AND 
PERFORMS THE ARITHMETIC OPERATIONS IN THE FOLLOWING SEQUENCE: 



CLASS 1 - ^ EXPONENTIATION 

CLASS 2 - ^ MULTIPLICATION 
/ DIVISION 

CLASS 3 - + ADDITION 
- SUBTRACTION 



OPERATIONS MAY BE GROUPED BY THE USE OF PARENTHESES. 
EXCEPTION- ^^^^ USED; EXPRESSIONS WITHIN PARENTHESES ARE 
' EVALUATED FIRST, THEN^, THEN ^ AND / THEN + AND-. 
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CONSTANTS 
VARIABLES 
OPIRATORS 

STATEMENTS 

FUNCTIONS 



EXECUTABLE TYPES 



ARITHMETIC 



GENERAL FORM: 



MUST BE A VARIABLE 



MUST BE AN EXPRESSION 



STANDS FOR "REPLACE" 



DEFINITION 



AN EXPRESSION IS A COMBINATION OF CONSTANTS AND /oR 
VARIABLES SEPARATED BY OPERATORS. 



EXAMPLE 



LABEL 
1 5 


C 
6 


STATEMENT / 
7 / 








r: :i:7 






— 1 — 1 — 1 — 




-u— 1 — 1 — 1 — 1 — 1 — 1 1 1 1 



WOULD BE SOLVED IN THIS ORDER 



X = A + B/C^^3-D^E 

-(2>- — ' 
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FORTRAN ARITHMETIC 



FORTRAN ARITHMETIC IS VERY SIMILAR TO CONVENTIONAL 
MATHEMATICAL NOTATION. ONE IMPORTANT DIFFERENCE 
CONCERNS THE LEFT SIDE OF THE EQUAL SIGN. IN FORTRAN, 
THE TERM ON THE LEFT SIDE OF THE EQUAL SIGN MUST BE 
SINGLE VALUED. 



IN FORTRAN, THIS IS NOT PERMITTED, THE ABOVE MUST BE WRITTEN: 



FOR EXAMPLE: 



ONE MIGHT SOLVE FOR X/5: 



X = 5. ^(C^2-l-Y^2) 



ADDITIONAL EXAMPLES - 



CONVENTIONAL NOTATION 



FORTRAN NOTATION 



X=3Y 
N=6(K-2) 
X+4=2Y 



X = 3i^Y 

N=6X(K-2) 

Y=(X+4.)/2. 



A 



2"3 3 

(X + Y) 



Z = A^(X+Y) 



Y=2.-)f(lX+Z)/3.) 
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ALGEBRAIC OPERATIONS IN FORTRAN 



ALOIiRA 


OPERATION 


FORTRAN STATEMENT 


X= Y + Z 


Addition 

• \^ III 1 1 


X = Y+ Z 


X = Y-Z 


Subtraction 


X= Y-Z 


X = Y* Z 


Multiplication 


X= Y-X-Z 


X = Y/Z 


Division 


X=Y/Z 


X= Y^ 


Raise to a power 


X= Y^Z 


X=\rY" 


Square Root 


X= SQRT(Y) 


X=eY 


Natural Anti-Log 


X = EXP(Y) 


X = SIN(Y) 


Sine 


X = SIN(Y) 


X= COS(Y) 


Cosine 


X= COS(Y) 


X = TAN \y) 


Arc Tangent 


X = ATAN(Y) 


X= TANH(Y) 


Hyperbolic Tangent 


X = TANH(Y) 


X = LN (Y) 


Natural Log 


X= ALOG(Y) 
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A WORD OF CAUTION! ! ! 



THE USE OF REAL AND INTEGER VALUES WITHIN AN 
EXPRESSION MUST NOT BE MIXED. 

INTEGER VALUES SHOULD BE USED IN INTEGER EXPRESSIONS 

AND 

REAL VALUES SHOULD BE USED IN REAL EXPRESSIONS 



VALID EXAMPLES 



I = 5 

X = 5.0 

J = 1 + 3 

Y = X + 3.0 

K = I -l-J 

Z = X + Y^Z-3.0 

INVALID EXAMPLES 

I = 5+X^J - X IS A REAL VARIABLE 

X = 5.+ I ^ Y - I IS AN INTEGER VARIABLE 

J = K/2.5 - 2,5 IS A REAL CONSTANT 

Y = Z-)(-A/5 - 5 IS AN INTEGER CONSTANT 
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LEGAL INTERMIXING OF INTEGER AND REAL VALUES 



X = BX^I 

AN INTEGER NUMBER MAY NOT BE RAISED TO A REAL POWER: 

ACROSS THE EQUAL SIGN 

AN INTEGER MAY BE SET EQUAL TO A REAL EXPRESSION: 



EXPONENTIAL AND CONVERSION LIBRARY ROUTINES 



EXPONENTIATION: 



A REAL NUMBER MAY BE RAISED TO AN INTEGER POWER! 



I=X 



A REAL NUMBER MAY BE SET EQUAL TO AN INTEGER: 
X=I 



.RTOI 

.RTOR 

.ITOI 



REAL NUMBER TO INTEGER POWER 
REAL NUMBER TO REAL POWER 
INTEGER TO INTEGER POWER 



FLOAT 
IFIX 



INTEGER TO FLOATING POINT CONVERSION 
FLOATING POINT TO INTEGER CONVERSION 
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EVALUATION PROBLEM 



GIVEN: 

THE FORTRAN STATEMENT: X = A^B^C/D 
PROBLEM: 

WHICH OF THE FOLLOWING IS A CORRECT INTER- 
PRETATION OF THE STATEMENT GIVEN? 

a) X=[A^B]^^^°^) c.)X=-t^|5l! 

b.) X = A^CB^^^^^ d) X=MlIl! 

D 

RULES: 

• EXPRESSIONS IN PARENTHESES ARE EVALUATED FIRST 

• THEN THEN ^ AND /, THEN + AND -. 

• STATEMENT SCANNING IS FROM LEFT TO RIGHT 



2-20 



Programming Course 
Students Manual 



LESSON H 
Introduction to HP FORTRAN 



SUMMARY 

EVALUATION OF STATEMENTS 

r-0-i 

Y = ,X + A - ,B^.SIN(G + C)/ .SQRT(R). 
L—o ' ® ® 1 



-<I>- 



l-0-J 1—0—1 
— — © 



r 



■<D- 



Z = A^t (B/.{CXXD).) 




Z = SQRT( ( R^SIN{THETA))^)(2, -I- ( R^ CO S ( THETA)) -JtJf 2 ) 
I ©_ 1 I I ® 1 



L 



-<1> 



VARIABLE NAMES 

• INtager names start with l,J,K,L#M,N 

• REAL names start with A through H and O through 2 

• Names have FIVE or LESS alphanumeric characters, the first being a letter 

FORTRAN LIBRARY FUNCTIONS INCLUDE: 

Y = SORT (X) Y = COS (X) 

Y = EXP (X) Y = TAN (X) 

Y = ALOG (X) Y= ATAN (X) 

Y = SIN (X) Y = TANH (X) 
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SAMPLE PROBLEM- IN-LINE CODING 



PROBLEM 

SOLVE Y=A + B-X 
WhereA=i, B=2 AND X=1, 2,3,4.5. .. . 

SOLUTION 



Y 




1 23456789 

NOTE; 

Y TAKES THE VALUES 3,5,7,9,11,13, 



LABEL 
1 5 


C 
6 


STATEMENT / 








1 1 1 1 

— 1 — 1 — 1 — 1 — 




Br.2,>>; . , , , 


—4—1 — 1— 1— 




Xr.^'i<g, i ■ ■ . .V 


■ ■ .2.3 




Y,= ,A,+,B,^,X, , 1 ,\ 






Xr.2r.g>, . , . . . 


, , .4.5 




Y,= A+,B,^,X, , , , 


— h-H — 1 — 1— 




X.= .3 . 






Y * A,+,B^,X J 


— I— 1 1 1— 




x.'°.4,>,< , , , . , 


1 1 |3|2 
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CONSTANTS 
VARIABLES 
OPERATORS 

STATEMENTS 

FUNCTIONS 



= EXECUTABLE TYPES 

INPUT/OUTPUT — THE REAP statement 

THE READ STATEMENT READS DATA FROM AN INPUT DEVICE 

GENERAL FORM : r£ad (UN, FN) Vi,V2,..,VN 



'UNIT REFERENCE NUMBER" 

KEYBOARD UNIT = 1 

STANDARD INPUT UNIT = 5 



"DATA LIST" IT SPECIFIES 

WHAT DATA IS TO BE 
MOVED 



example: 





"FORMAT STATEMENT NUMBER" 
THAT DESCRIBES HOW THE DATA 
IS TO BE MOVED 














LABEL 
1 5 


C 
6 


STATEMENT , 

7 






RE.A.D.( i ,.7 ).I X.,.Y 


— 1 — 1 1 1 




1 1 1 1 1 1 1 1 1 ( 1 1 1 1 1 1 1 1- 


-4 — 1— +/ 



MEANS 



READ THE VALUES FOR IX AND Y FROM THE KEYBOARD 
AS PER FORMAT STATEMENT #7 
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CONSTANTS 
VARIABLES 
OPERATORS 

STATEMENTS 

FUNCTIONS 



= EXECUTABLE TYPES 



INPUT/OUTPUT -- THE WRITE statement 



THE WRITE STATEMENT WRITES INFORMATION ON AN OUTPUT DEVICE 

GENERAL FORM: 



"UNIT REFERENCE NUMBER" 
TELEPRINTER OUTPUT = 2 



WRITE (UN,FN) V1.V2,,,,VN 

_J 



PUNCH OUTPUT 
LIST OUTPUT 



= 4 
= 6 




"DATA 


LIST" 


IT SPECIFIES 


WHAT 


DATA 


IS TO BE 


MOVED 







" FORMAT STATEMENT NUMBER" 
THAT DESCRIBES HOW THE DATA 
IS TO BE MOVED 



example: 



LABEL 


C 


STATEMENT { 


1 5 










W.R,I,T.E.(.2„,>I,7,),I,2.,,P.H,I, , J 









MEANS 

WRITE THE VALUES OF 12 AND PHI ON THE TELETYPE AS PER FORMAT 
STATEMENT #17 
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CONSTANTS 
VARIABLES 
OPERATORS 

STATEMENTS 

FUNCTIONS 



= NON - EXECUTABLE TYPES 



FORMATS - THE OENERAL SPECIFICATIONS 

A FORTRAN FORMAT STATEMENT TELLS 

1- The length of the fields - I.E. the number of characters allocated to 
each variable in the data list 

2- The mode of the values - I.E. fixed or floating point 

3- Position of the decimal point- only for floating point 



GENERAL FORM: 



FORMAT (IW, FW.D,) 

AA A A A 



FIXED POINT VALUE 
FIELD LENGTH 



t_ 



NUMBER 0r DIGITS AFTER "." 

FIELD LENGTH 

. FLOATING POINT VALUE 



example: 



MEANS 



LABEL 
1 5 


c 

6 


STATEMENT | 








— 1 — t— t — 1— 




—I 1 — 1 1— 1 1 — 1 — 1 1— 1 1—\ 1 — 1 1— H — 1 1 1 1 — h\ 

F,O,R,M/V,T,(,I,4„.F,>I,0..,4,), , , , , ,\ 



THE FIRST VALUE IS FIXED POINT (INTEGER) 4 CHARACTERS LONG 
THE SECOND VALUE IS FLOATING POINT 10 DIGITS LONG WITH 4 DIGITS AFTER "." 
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CONSTANTS 

VARIABLES 

OPERATORS 

STATEMENTS 

FUNCTIONS 



= NON-EXECUTBLE TYPES 



FORMATS - THE I FORMAT 



THE I FORMAT IS USED TO DEFINE THE SPECIFICATIONS OF INTEGER 
VALUES. 



THIS 
FORMAT- 



LABEL 
1 5 


c 

6 


STATEMENT 1 

7 


— < — r-H — h- 






— 1 — 1 i 1 










j'^'eV ' ' ' ' 1 1 


— ' 1 1 
— ^ H-l — h- 






■H — 1 1 i 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 


1 i 1 1 










F;o,R;M,A;T;(;i;5;,;i;5;,;i;5;,;i;i;0;); ; ; ; / 


1 1 1 1 1 




' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 If 



DEFINES 



> INTEGER DATA SPECIFICATIONS 



T— I — r 



J I I L 



T — \ — I — I — I — i—T — I — I — r— I — r 
6 5 4 5 3 

J I I I J I I I I I L 



T — I — T" 

2 7 5 

J I L- 



J I I \ L 



■15 



IS- 



IS 



■110 
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CONSTANTS 
VARIABLES 
OPERATORS 

STATEMENTS 

FUNCTIONS 



= NON -EXECUTABLE TYPES 



FORMATS — THE F FORMAT 



THE JF^ FORMAT IS USED TO DEFINE THE SPECIFICATIONS 
OF FLOATING POINT VALUES. 



THIS FORMAT 



LABEL 


C 


STATEMENT 


1 5 


6 


7 


1 1 1 1 






1 1 1 1 




— 1 — 1 — 1 — 1 — 1 — 1 — 1— 1 — 1 — 1 — 1 — 1 — 1 — 1 — 1 — y—t — 1 — 1 — 1 — 1 — HH — 1 — 1 — 1 — H — 1— • 
^i' l^i^l^r i^/i^i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 












F.0,R;»«.A,T.( .F.8,. ,3„ ,F,1 ,B,. ,2„ ,F,6,. ,1 „ ,F,4,. ,2J 



DEFINES FLOATING POINT DATA SPECIFICATIONS 



3 4 5 • 6 7 8 

— 1 1 1 1 1 1 1 


— 1 r- 


1 1 1 1 1 

3 4 5. 

-L .,-L..,JI .J, 1 


t 1 

6 7 

1 1 


■ -r- -1 — r — r ~ 

3 4 5 • 

1 1 . 1 1 . 


1 — 
6 


— 1 — 1 — r— 

3 4 5 , 

1 1 1 


< F8.3 ► 












^ F4.2 




< 


F10,2 


► 


< F6J — 


— ► 
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EXAMPLE! USING the I and F format 

WITH A READ STATEMENT 

READ FROM THE PHOTOREADER IX AND SAL 
IX IS 4 CHARACTERS LONG 
SAL IS 8 CHARACTERS LONG, 3 OF WHICH 
ARE AFTER THE DECIMAL POINT 



ASCII CODE 


LABEL 
1 5 


C 
6 


STATEMENT 


^ 






1 1 1 1 1 1 1 1 1 1 1— 1— 1 »— 


1 m\ • • • 1 / 3 






1 1 1 1 1 1 1 1 1 1 1 ' 1 1 1 \ 












r|e|a|d|( |5|.|6|2) |i|x|. |s|a|l| I \ 








, r::t:'":"i /; 






f|o|r|m|a|t { |l |4|,|f|8|.|3|)| I 1 1 






— 1 — 1 — 1 — 1 — 1-^ — 1 — 1 — 1 — 1 — 1 — 1 — 1 1 1 — 1—1 — k 






— 1 — 1 1 i — 1—1 — 1 — 1 1 1 — 1 — 1 — 1— 1— 1 — 1 1^ 



IX 



SAL 
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FREE FIELD INPUT 

FREE FIELD INPUT PERMITS THE READING OF NUMERIC DATA WITHOUT 
A DEFINITIVE FORMAT STATEMENT. DATA ITEMS ARE SEPARATED BY SPACES 
OR A COMMA. THE ASTERISK (^) CHARACTER IS USED IN PLACE OF THE 
FORMAT NUMBER IN THE READ STATEMENT TO DEFINE THE FREE FIELD 
MODE OF INPUT. 

EXAMPLE; USING FREE FIELD INPUT, READ VALUES FOR IX AND SAL 



ASCn CODE 




^ \ '1 

• ^ 


• 


• • 1 1 • 


• ••• •! •! 


•1 1 


• • • !• i 


1 1 








. 1 •• 






5 


C 

6 


STATEMENT 

7 






— 1 1 1 1 — 1 — l-H — 1 h- 1 1 1 1 1 — 1 — 1 — H 












r|e|a|d|(|5|.,W|),'l|x|.|s|a|l, I 1 






1 1 1 1 — 1 1 1 1 1 1 1 1 1 1 ) 1 1 












'III 1 1 1 1 1 1 1 1 1 1 1 1 1, 
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SAMPLE PROBLEM - FREE-FIELD DATA INPUT 



PROBLEM: read four numbers from the keyboard and 

CALCULATE THE SUM, AVERAGE AND PRODUCT. 



SOLUTION 



LABEL 
1 5 



STATEMENT 




-• — 1— H 



H — • — I — I- 



|R.E,A.P 



(■i...^.)A.|B 



S.U.M,' 



H— I 1 I I I I 



A.+,B.+,C,+,D. 



I. .1 1 



I I I 



I II 



A VG = 

4 1— I— 



S UM /4 • 

— I— I — I — « — I — I — v 



—I — I— h- 
PROD 



* — I I I 



' .A,^.B.^,C,^,D 



H — 1—4- 



-I— I — I- 



-1-4 



' ' ' 1-14-4 
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CONSTANTS 

VARIABLES 

OPERATORS 

STATEMENTS 

FUNCTIONS 



-NON -EXECUTABLE TYPES 



FORMATS- THE QUOTE format 



THE QUOTE FORMAT IS USEFUL FOR WRITING MESSAGES AND HEADINGS ON 
AN OUTPUT DEVICE. TO ACCOMPLISH THIS YOU ENCLOSE THE MESSAGE IN 
QUOTATION MARKS. 

example: 

THE FOLLOWING STATEMENTS WILL GENERATE CODING TO PRODUCE MESSAGES 
ON THE TELETYPE: 



LABEL 
1 5 


c 

6 


STATEMENT 

7 






— 1 — 1 1 1 1 . 1 1 — 1 — 1 1 J — 1 — II 1 — 1 1 1 1 — 1— 1 — 1 — 1 — 1 — \-W 


— 1 — 1 — 1 — \— 
1 1 1 1 




1 i 1 . .„rU 






,",P,-P,^J.^ I'/j 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1—1 1 1 1 1 "\ / 






WRITE.( 2...32 ) I.KE \\ 









TELETYPE 



HP -DATA PRODUCTS 
VALUE OF IK E'XXXX 
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SAMPLE PROBLEM -DATA OUTPUT 

example: using the i,f and QUOTE formats with a write statement. 



WRITE ON THE TELETYPE THE HEADING 
"J K". THEN WRITE THE VALUES OF J 
AND K WHERE J IS 3 CHARACTERS LONG 
AND K IS 2 CHARACTERS LONG. 



SAY J =3541 
K=62 



J K 
135462 



TTY 
OUTPUT 



NOW. WRITE THE HEADING "VALUE" 
AND THE VALUE OF V, WHERE V IS 
XX. XX (SAY 1.75) 



J K 
35 462 
VA LUE 

1 . 75 



TTY 
OUTPUT 



LABEL 
1 5 


c 

6 


STATEMENT 

7 


1 1 1 1 




WR I T E ( .2 .3.) . 

1 1 1 1 < * 1 1 •< 1 - 1 - 1 \- 1 -• 


1 1 1 1 




1 1 1 1 ' 1 1 1 II 1 1 1 1 


' ' ' ' 




ujp TTF"f2 7jJ K 
W|njL|I|t|\|^|i|'|'l*'l»l'^l |\ 






1 1 1 1 1 1 1 1 1 1 1 1 1 |\ 


7 




FORMA T(I3 12) 1 






; '\ 






f'o'rWa't'( J 'k"') 

1 l l l l l l 1 11 1 l l l l 






1 1 1 1 ■ ' • ■ 1 1 ill 1 / 






1 1 1 1 1 1 1 1 t 1 1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 
1 1 1 1 1 1 1 1 1 1 1 1 1 1 






W,R,I,T,E,(,2,.,6,), , , , , 












w|r|i|t|e|(,2|.|3|7|),v| I |\ 








, , , ,6 




F |o ,'r |'m|a |t I ( I " I V |a |l |u I e| " j ) 






1 1 1 1 1 II 1 1 1 II 1 1 / 






F,0,R,M,A,T,(,F,5,.,2,), 7 


\ ' 
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LESSON m OBJECTIVES 

TO INSTRUCT THE STUDENT IN THE USE OF THE 
HEWLETT - PACKARD SYMBOLIC EDITOR PROGRAM. 
MASTERING THE USB OF THE SYMBOLIC EDITOR 
WILL ALLOW THE STUDENT TO CORRECT ERRORS 
IN SOURCE LANGUAGE PROGRAMS BY REPLACING, 
DELETING OR INSERTING THE APPROPRIATE 
STATEMENT (S). 
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THE SYMBOLIC EDITOR SYSTEM 

DEFINITION A software program for maintenonco 

functions associated with dovolopmont of 
computer programs. 

PURPOSE Providos a method for editing and updating 

symbolic source language programs or files. 

MAJOR PROGRAM CAPABILITIES 

1) Provides for the insertion , deletion and replacement of: 

* Intir* tourc* •tat«m«nts 

* Characters within a sourc* •tat«m«nt 

2) Provides a listing of a source program 

3) Produces an updated source tape 
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EDIT PROCESS 
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EDITOR RULES AND FORMATS 



► ALL CONTROL STATEMENTS BEGIN WITH THE 
CHARACTER SLASH (/). 



► ALL STATEMENTS ARE TERMINATED BY A CARRIAGE RETURN, 
LINE FEED CODE. (CR, LF) 



► THE EDIT FILE IS TERMINATED BY A (/E) CONTROL 
STATEMENT- 

► ALL STATEMENTS ARE REFERRED TO BY THEIR SEQUENCE 
IN THE SOURCE FILE. 



STATEMENT EDITING 



CHARACTER EDITING 



/ee , r , q \j^z\ where: 



e = An editing code: I,DorR 



ee = An editing code! CI, CD, or CR 



r's = Sequence numbers in the 



r = Sequence number in the ronge 
1 through 9999. 



ronge 1 through 9999. 
r2, if specified, must be 
greoter than r^ . 



's = Character positions within the 
record that are to be edited. 



Blank positions must be included 



in the character count. An edit- 
ed statement MAY NOT exceed 
72 characters. 
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EXAMPLE: 



STATEMENT INSERTIONS 

If we wanted to insert four statements into the original source program 
following statement number 3 



(symbolic file) 




PROGRAMMER 



Label Operation 
1 5 10 



Operand 
15 



R 


E 


A 


D 






L 


D 


A 




P 


R 


S 


E 


T 


















C 


M 


A 


i 


I 


N 


A 






















S 


T 


A 




T 


6 


N 


T 




















J 


M 


P 




W 


A 


1 


T 



















































































































































































PROGRAMMER 



Label Operation 
1 5 10 



Operand 
15 



/ 


I 


1 


3 








































C 


L 


A 


















N 


E 


X 


T 






R 


A 


R 






























S 


T 


C 




1 


3 


B 




C 






W 


A 


1 


T 






S 


F 


S 




1 


3 


B 










/ 


E 







































































































































This coding would be necessary to 
create an updated file (edit file) — 



PROGRAMMER 



Label 



Operation 
5 10 



Operond 
15 



R 


E 


A 


D 






L 





A 




P 


R 


S 


E 


T 


















C 


M 


A 




I 


N 


A 






















S 


T 


A 




T 


6 


N 


T 




















c 


L 


A 


















N 


E 


X 


T 






R 


A 


R 






























S 


T 


C 




1 


3 


B 


1 


C 






W 


A 


1 


T 






S 


F 


S 




1 


3 


B 






















J 


M 


P 




W 


A 


1 


T 











































note: references to line numbers 

MUST BE sequential AND Such that the editor can produce a 
UNIQUE. 



new symbolic file (new source program) 
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STATEMENT DELETIONS 



EXAMPLE: 



If we wanted to delete statement numbers 2, 4, 5 and 6 
from the original source program 



(symbolic file ) 



PROGRAMMER 



1 

2 
3 

4 
5 
6 
7 
8 



Label _ Operation 



.and 



R 


E 


A 


D 






L 


D 


A 




P 


R 


S 


E 


T 


















C 


M 


A 


» 


1 


N 


A 






















S 


T 


A 




T 


G 


N 


T 




















c 


L 


A 


















N 


E 


X 


T 






R 


A 


R 






























S 


T 


C 




1 


3 


B 


1 


C 






W 


A 


1 


T 






s 


F 


S 




1 


3 


B 






















J 


M 


P 




W 


A 


1 


T 











































PROGRAMMER 



LjQbel Operation Operand 
1 5 10 15 


/ 


D 


> 


2 




























/ 


D 




4 




6 
























/ 


E 













































































































































































































































PROGRAMMER 



Label Operation 

1 5 10 



Operand 
15 



R 


E 


A 


D 






L 


D 


A 




P 


R 


S 


E 


T 


















8 


T 


A 




T 


G 


N 


T 








W 


A 


1 


T 






S 


F 


S 




1 


3 


B 






















J 


M 


P 




W 


A 


1 


T 



















































































































































































This coding would be necessary to 
create an updated file (edit flle)- 



Such that the editor can produce a 

new symbolic file (new source program). 
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STATEMENT REPLACEMENTS 

EXAMPLE: If we wanted to replace statement numbers 1 through 3 and 
6 and 7 from the original source progrom 

(symbolic file) - 



PROGRAMMER 



Label Operation 



10 



Operand 
15 



R 


E 


A 









L 


D 


A 




P 


R 


S 


E 


T 


















C 


M 


A 


> 


1 


N 


A 






















S 


T 


A 




T 


G 


N 


T 




















c 


L 


A 


















N 


E 


X 


T 






R 


A 


R 






























S 


T 


C 




1 


3 


B 


« 


C 






W 


A 


1 


T 






S 


F 


S 




1 


3 


B 






















J 


M 


P 




W 


A 


1 


T 











































PROGRAMMER 



Label Operation 

1 5 10 



Operand 
15 



/ 


R 


t 


1 


f 


3 
























R 


E 


A 


D 






L 


D 


8 




P 


R 


S 


E 


T 






/ 


R 


t 


6 




7 




































S 


T 


C 




1 


5 


B 


1 


C 






W 


A 


1 


T 






S 


F 


S 




1 


5 


B 










/ 


E 







































































































































PROGRAMMER 



Label Operation 
1 5 10 



Operand 
15 



R 


E 


A 


D 






L 


D 


B 




P 


R 


S 


E 


T 


















C 


L 


A 


















N 


E 


X 


T 






R 


A 


R 






























S 


T 


C 




1 


5 


B 


t 


C 






W 


A 


1 


T 






S 


F 


S 




1 


5 


B 






















J 


M 


P 




W 


A 


1 


T 













































































































This coding would be necessary to 
create an updated fiie (edit file) — 



Such that the editor can produce a 
new symbolic file (new source program) 
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SYMBOLIC FILE LIST/COPY FUNCTIONS 
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FORTRAN control statements 



LESSON m 
FORTRAN CONTROL STATEMENTS 



Objectives 


4-1 


Subscripted Variables in FORTRAN Arithmetic 




The GO TO Statement 


4-2 


Statements 


4-10 


The 1 F Statement 


4-3 


Sample Problem - Compute the Sine for 360 Angles 


4-11 


Sample Problem - Using the "IF" Statement 


4-4 


The DO Statement 


4-12 


The Two Branch "IF" Statement 


4-5 


Using the DO - Problem # 1 


4-13 


Summary 


4-6 


Using the DO - Problem # 2 


4-14 


The PAUSE Statement 


4-7 


The CONTINUE Statement 


4-15 


Subscript Notation 


4-8 


Using the DO - Problem # 3 


4-16 


The DIMENSION Statement 


4-9 


Nested DO Loops 
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LESSON 12: 
FORTRAN Control Statements 



LESSON m OBJECTIVES 



TO INTRODUCE SOME ADDITIONAL CAPABILITIES OP FORTRAN. 



1 - TRANSFER OF PROGRAM CONTROL FROM ONE 

FORTRAN STATEMENT TO ANOTHER. 

2 - MAKING LOGICAL DECISIONS BASED ON THE 

RESULTS OF AN EVALUATED EXPRESSION. 

3 - EXECUTING A GROUP OF FORTRAN STATEMENTS 

A SPECIFIED NUMBER OF TIMES. 

4 - CREATING AND OPERATING ON ARRAYS OF DATA 

USING VARIABLES WITH SUBSCRIPTS. 
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CONSTANTS 
VARIABLES 
OPERATORS 

STATEMENTS 

FUNCTIONS 



-EXECUTABLE TYPES 



CONTROL — THE GO TO statement 



GENERAL FORM 



GO TO N 



STATEMENT 
NUMBER 




LABEL 
1 5 


C 
6 


STATEMENT 

' — ZZi 






1 1 1 1 1 1 1 1 1 1 1 / 






1 1 ■ ■ 1 1 / 






a' '^1 ' ' ' ' ' '/ 






^r.^i'.^i .11.1. 












x'-'i'.V '■'■'/ 
1 1 1 1 1 1 1 1 1 1 / 








! 1 
















xi-xvi.y::/ 






1 1 1 1 1 1 1 1 1 






'^,5, 1, 









NOTE: THE "GO TO" STATEMENT IN THIS EXAMPLE ALLOWS THE 

PROGRAMMER TO REPEAT THE CALCULATION INDEFINITELY. 
Y TAKES THE VALUES: 3,5,7,9,11,13,15 
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CONSTANTS 
VARIABLES 
OPERATORS 

STATEMENTS 

FUNCTIONS 



- EXECUTABLE TYPES 



CONTROL - 

GENERAL FORM 



THE IF STATEMENT 



IF(E)N.,N„N_ 

»_ /uJ ±—2j 

AN EXPRESSION i t 



EXAMPLE 



STATEMENT TO "GO TO" 

DEPENDING UPON THE 

EVALUATION OF E 

IF E<0.'. GO TO 

IF E» 0/. GO TO N 2 

IF E>0.*. GO TO N- 



LABEL 


C 


STATEMENT / 


1 5 


6 




1 1 1 1 




' — / 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 / 


■ ■ ' ' 







IT SAYSi 

IF X - i0.<0 THEN GO TO STATEMENT 

IF X - Md.= THEN GO TO STATEMENT 

IF X - i0.>0 THEN GO TO STATEMENT 



11 

83 

35 
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SAMPLE PROBLEM - USING THE "if" STATEMENT 



PROBLEM 



solve: Y'^A + B^X 

where: am.b=2 

AND XH,2,3,4,5,6> 



SOLUTION 




LABEL 
1 5 


c 

6 


STATEMENT 

7 












1 1 1 1 r 1 1 1 1 1 1 ' 1 1 1 

Ari^.'.g. , ■ 1 . 1 1 1 1 1 ■ / 












V.^-.^. ■ ■ 








, , , ,5 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

Y*,A,+ ,B|X-,X| , 






Xr,x,+,i,.,0, 












i|f|( |x|-|i|0|.|)|5|.|5|.|3| 1 








' ' ' '3 




c'o'nViInIuIeI I 1 1 ^yVy 



NOTEIY TAKES THE VALUES 3,5,7,9.1i,13,i5 a 2i ONLy !! 
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THE TWO BRANCH IF STATEMENT 



GENERAL FORM^ 

STATEMENT TO "GO TO" 
DEPENDING UPON THE 
EVALUATION OF E 
IF E <0 GO TO N^ 
IF E ^0 GO TO N9 



LABEL 


C 


STATEMENT 


1 5 


6 


7 






— 1 — 1 — 1 — 1 — 1 — »— 1 — 1 — 1—4 — 1 — t—i — 1 — 1 — 1 — 1 — 1— 1 — t 


— 1 1 1 1 
1 1 1 1 




I.^fiX,-,-".®,-, .,8,3 ^ 









IT SAYS; 

IF X - 10. < THEN GO TO STATEMENT 11 
IF X - 10. ^ THEN GO TO STATEMENT 83 

NOTE: 

IF (E) Ha, N2 

HAS THE SAME EFFECT AS 

IF (E) N^, Ng, N2 



AN EXPRESSION 

example: 



IF (E) N^,N2, 



4-5 



LESSON EC 

FORTRAN Control Statements 



Programming Course 
Students Manual 



SUMMARY 



SAMPLE 

PROBLEM WRITE A SET OF STATEMENTS TO PERFORM THE FOLLOWING: 

READ TWO VALUES FROM THE KEYBOARD AND CALCULATE THE SUM. 
IF THE SUM IS POSITIVE; TYPE OUT THE SUM. 
IF THE SUM IS NEGATIVE; TYPE OUT THE WORD "REJECT". 
PROGRAM A LOOP FOR CONTINUOUS PROBLEM SOLUTIONS. 



SAMPLE 
SOLUTION 



LABEL 
1 5 



-t— »- 



20 



1,0,0 



■+-+- 



1 

■+-+ 



200 
II 



4—1- 



STATEMENT 



R.E.A.D. (■-!,., ^,) 



I 1 I I 



S.U,M. = ,A.+,B, 



IF.(.S.UM).1.0 



•i r i l l 



w.R.iT.E,(;2;r;i 



F.O RMAT( ." S 



6,0, 



I r I I 



WJ.E,(,2,,,2 



^Q|R|M,A,T.( 



G^O 



TO 5 
III II 



1 I I 

2 



0Ws 



mi. 



I I I 



) 
I r I 



I I I 



U.M 







H — H 




RULES: READ/WRITE statements: indicate the UNIT NO., FORMAT NO. and the 
DATA LIST elements. Using an for the format no. of a READ 

statement indicates the FREE-FIELD INPUT mode. 

IF statements: TRANSFER CONTROL to one of TWO or THREE branches. 
The TWO branch IF represents NEGATIVE and NON-NEGATIVE. The 
THREE branch IF represents NEGATIVE, ZERO and POSITIVE NON-ZERO. 
These two statements are equivalent: 

IF (N) 1 0, 2 IF (N) 1 0, 2 0^, 2 
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CONSTANTS 
VARIABLES 
OPERATORS 

STATEMENTS 

FUNCTIONS 



-EXECUTABLE TYPES 



CONTROL - THE PAUSE statement 

GENERAL FORM PAUSE 

WHEN THIS STATEMENT IS EXECUTED THE COMPUTER WILL WRITE "PAUSE" 
ON THE TELEPRINTER AND THEN HALT. WHEN THE RUN BUTTON IS PUSHED 
THE COMPUTER WILL RESUME EXECUTION AT THE NEXT FORTRAN STATEMENT. 



EXAMPLE 

CONSIDER A PROGRAM WHICH MUST PROCESS DATA READ FROM A TAPE PLACED 
IN THE PHOTOREADER. AT SOME TIME THE FORTRAN PROGRAM MAY: 

1. WRITE A MESSAGE ON THE TELEPRINTER REQUESTING THE DATA TAPE. 

2. £AI1S1 THE OPERATOR WOULD NOW PUT THE DATA TAPI IN THE 
PHOTOREADER, AND PRESS RUN. 



LABEL 
1 5 


6 


STATEMENT 

7 








W.R.I.T.E.(.2.,.i.0.0.) 


— fill 




'^;o.^K^^;^"i■-;o;A;D; ;d,a;t;a; .t.ape;;)) 






PAUSE \ 
1 1 1 i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i\ 


Jill 

1 1 - 




1 1 1 1 1 1 i 1 1 1 1 i 1 1 1 1 1 UxU^iJ ' ^ 
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SUBSCRIPT NOTATION 



\ ANALYSIS: / 

IN ALGEBRA, SUBSCRIPTS ARE WRITTEN: 

ai X + Qg X2 + a3X3. . , , 



IN FORTRAN, THE EQUIVALENT EXPRESSION WOULD BE: 

A (1) ^X+A(2)^ XXX2 + A(3) ^X-)^^3 . . . . 



GENERAL FORM: 



FIXED OR FLOATING 



(I) = ^ 



i 



POINT VARIABLE NAME 



L 



ANY EXPRESSION 



SUBSCRIPT 



INTEGER CONSTANT, VARIABLE, OR CERTAIN EXPRESSIONS 

A SET OF SUBSCRIPTED VARIABLE QUANTITIES IS CALLED AN ARRAY 
THE INDIVIDUAL QUANTITIES OF THE ARRAY ARE CALLED ELEMENTS 

A 



example: 



ARRAY NAME 



ELEMENT NAME 
A (1) 
A (2) 
A (3) 

I (1) 
I (2) 

I (3) 



QUANTITY 




(1)- 127.2 



(2) - 13.6 - 

(3) - 25.4 - 



38 
2516 
32767 
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CONSTANTS 
VARIABLES 
OPERATORS 

STATEMENTS 

FUNCTIONS 



- NON - EXECUTABLE 



SPECIFICATION - THE DIMENSION STATEMENT 



GENERAL EORM: 



DIMENSION A(5),I(7),B(5) 



VARIABLE NAME 



NUMBER OF ELEMENTS 



A DIMENSION STATEMENT MUST APPEAR BEFORE THE FIRST EXECUTABLE 
STATEMENT OF THE PROGRAM. 



example: 



LABEL 
1 5 


6 


STATEMENT 

7 






PROGRAM ,S,AM 


1 1 1 1 
1 1 1 1 




D.I M EN S I O,N, A ( 5') ' l'(,7 ) . B (Is 


MM 




A < 1 i = l' '5' ' ' ' ' I 1' ' ' ' ' • ' ' • ' 


Mil 






MM 




A,^ 3,) = 2 34 . 56 , , 


_l — — \^ 




A ( 4 ) = i ' 1.1/ 


— < — 1— 1 — 1— 




A ( 5 ) = 32. 676 , , / 


— H — H- 1 — 




b.(.iI)I=.a.(.i.)I^Ia!{I2)! I I . I I . I I 11 


1 M 1 






"|v..^.\'.^v.^Ji! III!: ; iiiv 



ERROR 



10 
WORDS 



< 



7 

WORDS 



A (1) 




A (2) 






A (3) 






A (4) 




^ A (5) 






? I (1) 




I (2) 




I (3) 




I (4) 




1 1(5) 




I 16) 




VI (7) 
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SUBSCRIPTED VARIABLES IN FORTRAN ARITHMETIC STATEMENTS 




Y = A + B-X 
A « A 
8*2 

X * 1,2,3.4,5.6,7 



Y(i) 5 3 

Y(2) = 5 

Y(3) = 7 

Y(4) = 9 

Y(5) = AA 

Y(6) =13 

Y(7) = i5 



LABEL 


c 


STATEMENT 


1 5 


6 


7 








P,R 0,6|R,A|M, ,D,E 


,M,0 4, , 


— 1 — 1 — 1 — 1 — 
— 1 1 1 — 1— 




d.iIm.e.n.s.i.o.n, 


.Y.(:7.). 






A:-;-i:»,g>, : ; i ■ . . ; , j 


i 1 1 i 






1 1 1 1 








— 1 — ' — » — 1— 
1 1 1 1 












x|=|i|.|0| 1 1 1 1 


i 


— 1— l-H — 1— 








— \ 1 1 — 1— 








1 1 1 1 




1 1 1 1 • 1 1 1 1 1 1 1 1 




— 1 — 1 — 1 — 1 — 




y|(|i|)|=|a|+|bW|x| 1 \ \ 




— 1— 1— 1 — 1— 








— 1 1 1 — 1— 






.3.0. . 




1 1 1 1 




1 1 1 1 1 1 1 1 . .1 1 1 / 




















1 1 1 1 




x|=|x|+|i|.|0| 1 1 




— ^-^ — 1 — 1— 

— 1 












G,0, ,T,0, ,1,0, , 




— 1 — 1 — 1 — 1 — 












p|a|u|s|e| 1 1 1 1 













/ 
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A SAMPLE PROBLEM — COMPUTE THE SINE FOR 360 ANGLES 
PROBLEM: fill an array which has 360 elements with the 

TRIGONOMETRIC SINE OF THE NUMBER OF DEGREES CORRESPONDING 
TO THAT ELEMENT. 

SOLUTION: 



LABEL 
1 5 


c 

6 


STATEMENT / 
7 I 


— 1 — 1 — , — 1 — 




D,I,M,E,N,S,I,0,N, S,I N,E,(,3,6,0 ), , , ,/ 


— 1 — 1 — 1 — 1 — 






— 1 — 1 — 1 — 1 — 




1 1 ;; 1 : / 












R|A|D|=|F|L|o|A|T|(|l|)]-X-|0|.|0|i|7|4|5| \ j 








— 1 — 1 — 1 — 1 — 
— 1 — 1 — 1 — 1 — 




s|i|n|e|(|i|)|=|s|i|n|(|r|a|d|) 1 \ \\ \ Y 








III! 




i\f\ \{\i\-\5\6\<s\)\z\q>\.\-5\(3\ \ \ \ \ \\ 


— 1 — 1 — « — » — 










; 1 ; : 1 ; 1 1 : ; ; : ; ; ;/ 


— 1 — 1— 1 — »— 










g|o| \j\o\ X®! 1 1 I ! I I I I I I 1/ 












p|a|u|s|e| ! I ! 1 1 1 11 1 ! 1 1 V 


— 1 — 1 — 1 — 1 — 
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CONSTANTS 

VARIABLES 

OPERATORS 

STATEMENTS 

FUNCTIONS 



- EXECUTABLE 



CONTROL — THE DO STATEMENT 



INDEXING 
PARAMETERS 



DO N I=J,K,L'< INCREMENTAL VALUE 



GENERAL FORM 
example: 



WHERE N IS 
A STATEMENT 
NUMBER 



TERMINAL VALUE 
INITIAL VALUE 



INDEX 
VARIABLE 
NAME 









— 1111 






— III! 







• SET J = 1, ( INITIAL VALUE). ^ ALL STATEMENTS DOWN TO AND 
INCLUDING STATEMENT 5 ( THE RANGE OF THE "DO"). 

• ADD 1 (INCREMENTAL VALUE) TO J. 

• IF J < 10, (TERMINAL VALUE) RE-EXECUTE THE STATEMENTS IN THE RANGE. 

• IF J > 10/ THE "DO" IS SATISFIED AND CONTROL PASSES TO THE 
NEXT STATEMENT IN SEQUENCE. 
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USING THE DO PROBLEM #1 

PROBLEM; soLVi : y = a + b • x 

Where a = i b = 2 

And X = 1,2,3,4,5,6,7,8,9,10 

SOLUTION; 



LABEL 
1 5 


6 


STATEMENT 






ftf.L-.g 






Bri2.-.;, 1 


















Ml,. 


, , , ,5 













NOTE: IF THE INCREMENTAL VALUE OF THE "DO" IS 1, IT NEED NOT BE 
SPECIFIED. 
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USING THE DO PROBLEM #2 



PROBLEM; 

ASSUME THAT ARRAY X CONTAINS 100 VALUES. FIND THE SUM. 

SOLUTION: 



LABEL 
1 5 


c 

6 


STATEMENT \ 
7 1 






D I M E N S.I O.N X ( 1 0,0 )\ 


— 1— 1 — 1— 1— 




S UM|= 0|.,0| ,'11,1,1 


— 1 — 1 — 1 — 1 — 




d|o| ,i|0, ,i,=X. ,i|0|0, , 1 / 


— 1 1 1 1 -■ 




s u|M|=|s,u,M,+ x,(,r ), , ,/ 


— 1 — 1 — 1 — \ — 




p>,u.s.E. , , ; \ j 








— 1 — 1 — 1 — 1 — 
* '1 ', 1=- 







• THE LABEL WHICH TERMINATES THE DO LOOP IS ON A STATE- 
MENT WHICH IS PART OF THE LOOP 

• THE LABEL WHICH TERMINATES THE DO LOOP MAY NOT BE ON 

A "OO TO" , "IF"/'RETURN", "STOP", "PAUSE", OR "DO" 
STATEMENT. 
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CONSTANTS 
VARIABLES 
OPERATORS 

STATEMENTS 

FUNCTIONS 



- EXECUTABLE 



CONTROL-THE CONTINUE STATEMENT 

GENERAL FORM! CONTINUE 

THE CONTINUE STATEMENT IS A DUMMY FORTRAN STATEMENT WHICH IS 
USED TO PROVIDE A LEOAL TERMINATION FOR A "DO" LOOP WHEN 
THE LAST STATEMENT WOULD OTHERWISE BE A : 

GO TO, IF, RETURN, PAUSE, STOP OR ANOTHER "DO" STATEMENT. 

EXAMPLE: 

INVALID **DO" LOOP VALID *'DO" LOOP 







SUM": . 


— »— 
-4— 




III 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

P.O. .^g. J-rSu\^^^ .1 






S.U.M=,S.UM,+pEL,T,A. 


1 




IF,( ,S,U,M,-,5,00,.^),1,0,.,2,0,.,2,0, 


20 




^ l" «^ l"*"!"^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 


— 1 — 










1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 







s,u.Mr,0--,0 , , . , 1 


— 1— 




DQ. .^g>i Ml 






SU,M = ,SU,M,+,D,E,L,T,A . , 






I,F,(,SU,M,-.5.0,0,.,),10„,2,0,„2,0 , 


1 




CONTINUE . 


2'0 




1- I'iV 1 ' 1 11 1 1 1 1 1 1 ly 

("l 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 j;;k^ 


— 1— 




■1 1 tl 
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USING THE DO PROBLEM #3 



PROBLEM; write a Fortran program which r«ad* 100 numbers 
from tho photoreador and calculatos tho sum, avorago, and RMS 
value. 

GIVEN; Tho RMS valuo = tho squaro root of tho sum of tho squares 
of tho difference between the mean value and the individual data 
points: 

RMS * / s:(xi-xr 



SOLUTION; 



i00 







P.R.O.61R.A.W .D.E.M0.6 / 






. 1 ■ i i 1 1 . i . , i 1 1 ■ i 1 i ■ ■ ■ . ■ ■ : 




' 1 ' '5 




■ 1 1 1 1 m MriM 1 1 > \ \ \ 1 f-4-+ 1 1 1 1 1 — 1— 1 — 1 1 1 1 1 1 1 1 1 — 1 — 1 — 1 — 1 — H 


, , ; ,1 




f|o,r;i\^a|t;(,"|i|n,s,e,r,t| ,d,a,t,a| |t,a,p;e| |I;n| |p|.|r,.,,,p,u,s,h| ;r|U|N;", 






s'X'-§-'0' 1 ■ . 1 , . i ■ I 1 1 1 ■ 1 1 1 1 . 1 1 








glWZl^Ll? 1 1 I I J 1 1 ■ ... 1 1 1 . . 1 1 , 1 , 1 






1^1 i^ri^ni^^i^ . 1 1 1 1 1 1 . 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 






1 . ."l^A'^i^l^.' i^i^j^l^.^i ^ 1 1 1 1 1 . 1 1 1 1 1 1 1 1 1 1 1 1 . 1 1 ' 1 f t- 






: ; ;^u;>^=;s;u;M;fX(;i;); ; I ; ; ; ; ! | : | ! : ; ; ! 1 1 , . ! 1 , . 1 , ! 


1 1 1 12 




C,0,N|T|I,N|U.E| 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 M 1 1 1 1 1 1 1 1 1 1 1 






A!v.Gl=.s.uI»^/.i.0!a : . ! : I I . . : I . . ! ! ' ' . 1 . . . ! ! ' 








ri^-y. ■ M i ■ i i . i i ■■ i i ; i ; i , i ■■. i ^ 






?\ i^i=i'l|*i'l|^t^ 1 1 1 1 1 1 1 1 1 1 1 1 1 . . iV 


1 1 1 15 




SU,»^S,Q=,SU,i^SQ+(,X;(,I),-,A,V,6 ),^9t2 i , , , | , , \ 












mmmmk www l ;: \ 


I'm'* 










r'n'^'r'n 'J ''''''' i i i i i i i I i ii i 1 i I i i 1 i 1 \[J-±^ 


1 1 1 




^Pi iM^i 1^1 M II 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 1 1 1 t 1 1 1 1 J^^i-^ 
1 M ' ' ' ■ 
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NESTED DO LOOPS 



RULE > It is permifsible for one **DO" loop to contain another 
'*DO" loop within its range; however^ care must be given to 
avoid illegal transfers. Generally, it is required that all state-- 
ments in the range of the inner ''DO" also be within the range 
of the outer *'DO'\ 



OUTER 



[ 



INNER 



INNER AND OUTER 
LOOPS MAY END AT 
THE SAME POINT 



r- ILLEGAL 
SITUATION 







LABEL 
1 5 


6 


STATEMENT 






— 1 — 1 — (— 1 — 




D 0^ 1 0j .'^i'i^'im'' ®i I I 


— 1 — 1 ( !■ 










DO 2 J = ^ , ^ 5 






> 


► 10 




.III 




► .2 




, , . 1 1 




1 1 1 — 1 

1 1 1—1 




! 1 1 1 1 1 »— I 1— <-H 1— 1 1— 4-^ 


— 1 — 1 — l—i — 
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FORTRAN PROGRAMMING TECHNIQUES 



Objectives 

The "E" Format 

The Format Repeat Factor 

The Slash (/) in a Format 

The "X" Format 

The "A" Format 

Additional Free-Field Input Capability 
Examples - Free-Field Input 
More Information on Subscripts 
Sample Problem - Using a Two Dimensional 
Array 

Sample Problem - Using "Nested DO Loops' 
Two Dimensional Array Conventions 



5-1 Input/Output of Entire Arrays in Natural Order 5-13 

5-2 Input/Output of Entire Arrays in Row Order 5-14 

5-3 Sample Problem - Finding the Largest Element 

5-4 in an Array 5-15 

5-5 Subscript Expressions 5-16 

5-6 Introduction to Subroutine and Function 

5-7 Subprograms 5-17 

5-8 Subroutine Subprograms 5-18 

5-9 Subroutine Examples 5-19 

A Sample Subroutine Problem 5-20 

5-10 Function Subprograms 5-21 

5-11 Integer and Real Functions 5-22 

5-12 A Sample Function Problem 5-23 
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LESSON g OBJECTIVES 

TO INTRODUCE SOME ADDITIONAL CAPABILITIES OF FORTRAN. 

THESE INCLUDE: 

1 - SOME ADDITIONAL FORMAT SPECIFICATIONS FOR MORE 

INPUT/OUTPUT FLEXIBILITY. 

2 - MORE *'FREE FIELD" INPUT CAPABILITIES. 

3 - TWO DIMENSIONAL ARRAYS 

4 - ARRAY INPUT/OUTPUT TECHNIQUES 

5 - SUBROUTINES AND FUNCTION SUBPROGRAMS. 
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CONSTANTS 

VARIABLES 

OPERATORS 

STATEMENTS 

FUNCTIONS 



-NON EXECUTABLE 



FORMATS — THE E FORMAT 



E w.d 

GENERAL FORM specifies ^| | number of digits to the 

E FORMAT RIGHT OF THE DECIMAL POINT 

FIELD WIDTH INCLUDING 
SIGNS, DECIMAL POINT, 

AND EXPONENT. NOTE: PROPER OUTPUT WILL 

ALWAYS RESULT IF w>d+7 



OUTPUT EXAMPLES 








NUMBER 

+10.4365 

-12.34 

-10.4365 


FORMAT 

E10.3 
E12.3 
E7.5 


PRINTED AS 

AA.104E+02 
AAA-.123E+02 


REMARKS 

w<d+7 


INPUT EXAMPLES 








NUMBER 


FORMAT 


CONVERTED VALUE 


REMARKS 


+1.2345E2 


E9.3 


123.45 


Decimal point overides 
format 


1234 


E4.2 


12.34 


Format inserts decimal 
point 
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LESSON 31 

FORTRAN Programming Techniques 



CONSTANTS 

VARIABLES 

OPERATORS 

STATEMENTS 

FUNCTIONS 



-NON -EXECUTABLE 



FOR/WATS — THE FORMAT REPEAT FACTOR 



II II 



A FORMAT SPECIFICATION CAN BE USED n TIMES BY USING THE REPEAT 
FACTOR IN FRONT OF THE SPECIFICATION, AND PROVIDING THE PROPER 
PARENTHESES TO EFFECT THE DESIRED REPEAT COUNT. 



EXAMPLE 1 

























f|o|r]m|a]t|(|3] (]F|i|0].|2|.[l|5|)| )| 1 | | | ', | | | m 1 1 | 1/ 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 i 1 1 i t 1 1 1 1 1 1 1 1 1 1 IX 






— 1 — I 1 1 1 1 1 1 1 1 I 1 1 I 1 1 1 



THE TWO FORMATS SHOWN ABOVE ARE EQUIVALENT. 



EXAMPLE 2 

WRITE ON THE TELEPRINTER: 
THE TIME IS XX:XX:XX. 



1 1 1 — »— 






III' 




w'r'i't'e'('2' 'I'aS'i'H'n' 'i'm'm' 'i's's' ' ' ' ' ' ' ' 


1 1 i ■ 1 - 






-^14® 




f'q'r'm'a't'('"'t'h'e' 't'i'm'e' 'i's'"' 'I'a' 'g'c'"'.'"' 'I'gSS! 
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CONTENTS 
VARIABLES 
OPERATORS 

STATEMENTS 

FUNCTIONS 



-NON -EXECUTABLE 



FORMATS THE SLASH (/) in a format 

THE SLASH (/) CHARACTER IS USED TO INDICATE THE END OF ONE RECORD 
AND THE BEGINNING OF ANOTHER. THE CLOSING PARENTHESIS OF THE FORMAT 
STATEMENT INDICATES THE END OF THE INPUT/OUTPUT OPERATION. 



EXAMPLE 



1 2 3 4 5 



789653.1 23 



5678 91 .954 



THESE STATEMENTS 



LABEL 
1 5 


c 

6 


STATEMENT 

7 






R,E,A,D,(,5,,,i.0,2,),I,,,A,.,B , , , , . 






F,O,R,M,A,T,(,I.5,/,F,i,0,.,3./,F,i,0,.,3,), , , , 


I'll 




1 1 1 1 1 i 1 ' 1 1 1 1 — 1 1 1 1 1 — 1— hH — 1 1 1 1 1 






W,T,E,(,2|,,''|g.2,4;),i; , , , 


,1,0,2,4 




F,0,R,MA,T,(,",T,H,E, ,V,A,L,U,E, ,0,F I, ,1,8,' 


1.^ 1 1 14— 


i 


,I,6/,",I,Np,U,T, ,T,E,S,T, ,0,V,E,R," , ) , , J 



PRODUCE 
THIS 
RESULT 




THE VALUE OF I IS 1 2 345 
INPUT TEST OVER 
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CONSTANTS 
VARIABLES 
OPERATORS 

STATEMENTS 

FUNCTIONS 



- NON EXECUTABLE 



FORMATS - THE X FORMAT 



THE X FORMAT IS USED TO INSERT SPACES IN OUTPUT DATA AND CAN BE USED 
TO IGNORE ALPHA CHARACTERS AND PUNCTUATION MARKS ON INPUT. 



GENERAL FORM: 



REPEAT COUNT 



X IDENTIFIER 



EXAMPLE 




— I — I — I — I — I — |-H — I — I — I — I — I — I — i — • — ^ — » \ \ \ M " ^ ' — * — I — ' — ' — ' — ' — ^ — h 

, ;>i.0;0i |f;o;r;m,a.t;(:f,>i,0;.,2,,:5,x., .1,2,,. 3.x,. ,1,5 ,/,),) 



AN INPUT DATA TAPE HAS THE FOLLOWING FORM: 

WEIGHTAA10 AA PRICE AA $1.98AA TOTAL A A $19.80 
THE FORTRAN STATEMENTS SHOWN WILL CAUSE THE PUNCTUATION MARKS 
TO BE IGNORED. 



LABEL 
1 5 


6 


STATEMENT \ 






'^MD.'.S,. , -1,0,4,), I,.,A B 


1 1 1 1 




F,0.R,W|',8,X,,,I,2„,1,g,X,.,F4,.,2,, iax,. F,5,.,2,), 


1 1 1 1 




1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 h-l 1 1 1 1 1 1 1 1 1 1 1 



RESULT: I CONTAINS 10, A CONTAINS 1.98, B CONTAINS 19.80 
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CONSTANTS 
VARIABLES 
OPERATORS 

STATEMENTS 

FUNCTIONS 



-NON -EXECUTABLE 



FORMATS - THE 



FORMAT 



THE A FORMAT CAUSES ALPHANUMERIC DATA ON AN EXTERNAL MEDIUM 
TO BE TRANSLATED TO OR FROM ASCIE FORM IN MEMORY. 

GENERAL FORM'. r A w 

REPEAT COUNT t ^ FIELD 

IDENTIFIER 

FOR EXAMPLE! assume an input data tape contains: 
A22213-ABCXABC137-229 (6r)(L? 



H IGNORED ►llZ 5A2 





i 


1 — 

C label \ \ 
1 5 6 7 10 16 \ 20l 


26 1 


»-4— 4 — 1 — 1 


D.r.M.E.N.SI.O.N. .I.^.{.5\ . . . 




1 1 1 1 - 


.R;E;A;D:(.5,.i,0;0,),(i[^^,,@,,.(ijl\ 


1 00 
i 1 I I - 


-F,O.R,M.AJ.(A1;0,,:A,1,.,5.A,2,), .1 


1 1 1 1 


— 1 t 1 i 1 1 1 1 1 1 1 1 1 1 1 1 



note: 

W>2 

FIELD f»r]^j I 



W=2 



W=1 



RESULTS 


( ASCII DATA IN MEMORY) 


12 


B C 




11 


X 




ID 


A B 






C A 






3 7 






- E 






7 9 









MEMORY 



□ * 

33 - 



IGNORED ON INPUT 
SPACES ON OUTPUT 

A IGNORED ON OUTPUT 
ZERO ON INPUT 
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ADDITIONAL FREE-FIELD INPUT CAPABILITY 



FREE-FIELD INPUT permits the reading of ASCII numeric 
data items without a definitive format statement. Special symbols 
included with the data items direct the formatting. 



FREE-FIELD is indicated when an ASTERISK is used instead of a 
format statement number in the READ statement. 
A DATA ITEM is any continuous string of numeric and special 
symbols occurring between two commas, a comma and a space 
or two spaces. The data value corresponds to a list element. 
Two consecutive commas indicate that no data item is supplied 
for the corresponding list element. The current value of the list 
element in memory is unchanged. 

An initial comma indicates the first list element is to be skipped. 
A ^n(LF) terminates each input data line record. 



SPECIAL SYMBOLS: 



(SPACE) (,) 
(/) 

(+)(-) 
(.)(£)(+)(-) 

m) 

("...") 



DATA ITEM DELIMITERS 
RECORD TERMINATOR 
SIGN OF ITEM 
FLOATING POINT NUMBER 
OCTAL INTEGER 
COMMENTS 



RULES: 
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EXAMPLES : FREE-FIELD INPUT 
#1 - DATA TYPES 



READ (5,^) A, B. C, 11, JJ, K, L 




reals) (jNTEGERS) (OCTALS 



LA 




^ri4)f^ ^140^ , (3j4Ej), 0720) , (1966) , (@j77), ((a)5460) (CR)(L?) 



#2 - SPECIAL SYMBOL USAGE 

READ (5,^) A, B, C, I, X, Z 

2 




«^ (COMMENTS) (teSor) 



A 
B 



- UNCHANGED - 



^7.4 ,057Ei , ("COMMENT") 395, ©RECORD END©©^ 

3. 4 , 3i5E - i @ @ X 

z 



MEMORY 
RESULTS 



17.4 



570. 



395 



3.4 



3i.5 
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MORE INFORMATION ON SUBSCRIPTS 



• IN HP FORTRAN A VARIABLE MAY HAVE ONE OR TWO SUBSCRIPTS. 

FOR EXAMPLE: Y (I) = A + B -C OR X (I,J) = A + B -C 

• THE SECOND SUBSCRIPT IMPLIES THAT THE ARRAY HAS TWO DIMENSIONS. 

• A TWO DIMENSIONAL ARRAY CAN BE VISUALIZED USING ROWS AND COLUMNS. 

• THE LEFT SUBSCRIPT YIELDS THE ROW NUMBER. 

• THE RIGHT SUBSCRIPT YIELDS THE COLUMN NUMBER. 

• THE SIZE OF A TWO DIMENSIONAL ARRAY IS EQUAL TO THE PRODUCT OF 
THE SUBSCRIPTS 



EXAMPLE 



2 DIMENSIONAL 
ARRAY "X' 



LABEL 
1 5 


c 

6 


STATEMENT ( 
7 / 


ROW 


C 


L U 


M N 


M . II 


1 


2 


3 






D.I M E N S I N. .X ( 3., 3 ) . | 

1 1 1 1 1 i 1 1 — 1 — 1 — t-^ — Mh — i-i-i 1 1 1 1 1 1 1 1— 14 


1 










— 1 — 1 — 1 — 1 — 




1 = 3 i 


2 










1 h-H »— 




— 1 1 1 1 1 — ^-H — 1 1 1 1 — 1 » 1 1 1 — i-H — \ — 1 1 1 1 — 1— t/ 

1 - o / 


1 1 — 1 h— 

1 1 \ 1 




-5sh — i^H — 1 — 1 — 1 — 1 — 1 — 1 — 1 — 1 — 1 — 1 — 1 — 1 — 1 — 1 — 1 — 1 — I — 1 — 1 — 1 — 1 — H 

X (1 , J ) =,S.Q R T.( .A L P.H A.+ G.A MM A ) / 

1 — \ — h^H — 1 1 — 1 — 1 — 1 — 1 — i-^ — 1 — 1 — 1 — 1 1 — ( — 1 — 1 — 1 — 1 — ^-^-^ 


3 














1 


11^ II 
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SAMPLE PROBLEM: USING A TWO DIMENSIONAL ARRAY 



PROBLEM: Assum* th« •xictenc* of a two dimontional array SCORE 
(6,3) which is fill«d out to contain tho scoro* of 6 ttudonts for oach 
of 3 quizzo*. Writ* a soriot of ttatomonts which find* tho avorago 
scoro of student 4. 

SOLUTION: 



LABEL 
1 5 


6 


STATEMENT 

7 






DIMENSION SC0RE,(6., 3) 
1 1 1 1 1 1 1 1 1 1 1 1 1 1 — 1 1 1 ' 1 












s'u'm'='0'.'0' ' ' ' ' ' I ' ' I ' ' ' 
1 1 1 1 1 1 1 1 1 1 1 1 












d'o' 'i'0' 'i'='V,'3' 
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 












s |u'm|= |s|uW+|s|c|o|r|e|(|4|, |i|)' | 












a'v'g^'s'u'm'/'3'.'0 1 1 1 1 1 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1/ 



ARRAY SCORE 



STUDENT 
NUMBER 



ROM 


CO 

1 


LU 
2 


MN 

3 


1 








2 








3 








4 


X 


X 


X 


5 








6 









QUIZ 
NUMBER 
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SAMPLE PROBLEM - USING ^^NESTEP DO LOOPS^^ 

Assume the existence of a two dimensional array SCORE (6, 3) 
which is filled out with the scores of 6 students for each of three 
quizxes. Find the composite average. 



LABEL 
1 5 


c 

6 


STATEMENT / 

7 






D IMEN,S I ON, S,CO RE ( 6,,,3 ), , , , , , 


c' ' ' ' 




S|U|M| J.H,E| |E,L,E,m|e|n,T|S, , | , , ' , , | , 












1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1, 
S,U,"r,gr|g| , , , 1 . 1 ; .Ill,/ 






1 . 1 1 1 • 1 ... 1 1 • 1 1 1 1 1 1 1 1 1 ■ 1 / 






pjQ, \\'^\ iiisjiui'i^.je; : 1 , i ; i i : : n 














1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
P.Q. i^^. .^.Q.^r.^M^, ■ . ■ 1 ■ ■ ■ ■ ■ 1 . 












s|u|m|=|s|u|m|+|s|c|o|r|e|( |i|s |t|u|,|i|q',z|)| / 








— 1 — 1 1 1 1 1 1 1 1 1 — 1 — (— f— 1 — 1 1 1 1 1 1 ) 1 












A,V,G,= ,S,U,M,/,i|8,. , , , , , \ 
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2 DIMENSIONAL ARRAY CONVENTIONS 

RULE; 

TO FILL A TWO DIMENSIONAL ARRAY IN 
COLUMN ORDER THE ROW SUISCRIPT 
VARIES MOST RAPIDLY. 



ARRAY lA 



\ 




COLUMN (J) 






1 


2 


3 


4 


5 


1 


iOI 


102 


103 


104 


105 


2 

R 


20i 


202 


203 


204 


205 


W ^ 


301 


302 


303 


304 


305 


(I) 












4 


401 


402 


403 


404 


405 


5 




502 


503 


504 


505 


/ 




ROW ORDER — 


— ► 



OUTER LOOP 



ROW SUBSCRIPTd) 



INNER LOOP 



COLSUBSCRIPT(J 



C 

L 

S 

u 

B 

^4 



R 

W 

S 
U 
B 

(I) 



SUMMARY: 



RU LE; 

TO FILL A TWO DIMENSIONAL ARRAY IN 
ROW ORDER THE COLUMN SUBSCRIPT 
VARIES MOST RAPIDLY. 

PROBLEM; 

FILL ARRAY "lA" IN COLUMN ORDER. 

SOLUTION; 



— 1 — 1 — 




P,R,0,G,R,A,M, ,A,R,R,A,Y, , , , , 


— 1 — 1 — 




DI M E N S I O N, r A ( 5 . 5 ) 


— \ — \ — 




.P.O. ,^00. .jr 1!m5, : , , ' 






,D,0, .1,(5,0, ,I,= 1,,,5, 1 , / 


ilolo 







ARRAY I A 
IN MEMORY 



101 



201 



301 



401 



501 



102 



202 



302 

■4or 



502 



103 



203 



303 



403 



503 



104 



204 



304 



404 



504 



105 



205 



305 



405 



505 



TRANSMIT ARRAY 


OUTER LOOP CONTROLS 


INNER LOOP CONTROLS 


BY COLUMN 
BY ROW 


COLUMN SUBSCRIPT (J) 
ROW SUBSCRIPT (I) 


ROW SUBSCRIPT (I) 
COLUMN SUBSCRIPT (J) 
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INPUT/OUTPUT OF ENTIRE 
ARRAYS IN NATURAL ORDER 

when a Dimensioned variable name is used in an input-output 

list without subscripts, the entire array is transmitted. 
Example; write the contents of array lA in natural order. 



PROGRAM 



1 1 1 




P.R,Q.Q.R.A,M, .D.E^I.O,-'. , , , \- 






D,IMEN,S;i,0,N, ,I,A,(,5,,,5,), 


1 1 1 




W,R,I,T,E,(,2,.,>I,0,0,),I,A, , , 


■III 

i 00 

1 II 




F,0,R,M,A,T,( ,I,6,),_^_^_j^^^^ 



OUTPUT 
DATA 



Thtt array is output in column 
ordor from soquential momory 
location>-THIS IS NATURAL ORDER 



Tho singlo format spocification is 
usod repoatodly until all 
•lomonts of tho array aro 
transmitted 



2014- 

401 

501 

102 

202 

302 

402 

502 

103 

203 

303 

403 

503 

104 

204 

304 

404 

504 

105 

205 

305 

405 

505 



COLUMN (J) 



(I) 



101 


102 


103 


104 


105 


201 


202 


203 


204 


205 


301 


302 


303 


304 


305 


401 


402 


403 


404 


405 




502 


503 


504 


505 



ROW ORDER 



'OUTER LOOP 



ROW SUBSCRIPTdHCOL SUBSCRIPT (J 



INNER LOOP 



ARRAY lA 
IN MEMORY 



101 

TOT 



301 



401 



501 



102 



202 



302 



402 



502 



103 



203 



303 



403 



503 



104 



204 



304 



404 



504 



105 



205 



305 



405 
505 



5-13 



LESSON X 

FORTRAN Programming Techniques 



Programming Course 
Students Manual 



INPUT/OUTPUT OF 
ENTIRE ARRAYS IN ROW ORDER 

* If natural order (column) is not to be used, subscripting 
information must be provided. 

Example: write the contents of array lA in row order. 
PROGRAM: 







DIM EN 3,1 



A ( .5. 



-t-+- 



ARRAY lA 
IN MEMORY 



W|R,I,T|E, (,2,.,-l,e,1.),(.(.I.A. 



H— 4- 



F , , '^ , M , V . 'i^ , 6 , ' , 



The array is output in row 
ordor from non-soquontial 
momory locations* 



Tho singio format spocification 
is used ropoatodiy until all 
•lomonts of the array aro 
transmitted. 




COLUMN (U 
2 3 4 



}101 


102 


103 


104 


109 


201 


202 


203 


204 


205 


301 


302 


303 


304 


305 


401 


402 


403 


404 


405 


501 


502 


503 


504 


505 



ROW ORDER 



OUTER LOOP 



ROW SUBSCRIPT(I) 



INNER LOOP 



COL SUBSCRIPT (J) 




202 



105 



205 
305 
405 
505 
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SAMPLE PROBLEM ; FINDING THE LARGEST ELEMENT IN AN ARRAY 

CASE 1 A ONE DIMENSIONAL ARRAY X(232) FIND THE LARGEST VALUE 
IN ARRAY X 

SOLUTION: assume that the first is the largest element, compare 

THE SECOND NUMBER WITH THE FIRST. IF THE SECOND IS LARGER 
THAN THE FIRST, EXCHANGE VALUES. IF THE FIRST WAS LARGER, 
COMPARE THE THIRD VALUE WITH THE FIRST, ETC. 







B I G =.X.(.1 ) . , 1 






D I = 2 . 2,3 2 / 
i-i 1 I I I I I I* 1 1 I I — 1 1 1 1 / 






r,F,(,BI,G,- X,(,I,),),5 .,^,0, / 


1 ! 1 1^ 






1 1 1""]® 




C,0,N,T I,N,U,E, y 



CASE 2 A TWO DIMENSIONAL ARRAY Y (25,34) FIND THE LARGEST 
VALUE IN ARRAY Y 

SOLUTION: same technique as above 







B,IG,= Y,(,i,,,i,) , , , , , il 


— 1 — I — ^— 1— 
— 1 — \ — » — 1 — 




D,0| ,i,0, ,I,=|i| , 2|5| ,,,,,,,, 






D,o| ,^,0, ,j|='i| ,|3'4| 1 1 1 1 1 ! 1 


— 1 — 1 — 1 — 1 — 
— 1 — 1 — 1 — 1 — 






, . ■ .5 




B,i,G,=,Y.(.i,.,j,), 






£i2j!iiliii!ViiF i i i i ■ i i i i ■ ' ^ 
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SUBSCRIPT EXPRESSIONS 



ALLOWABLE FORMS: 

A SUBSCRIPTED EXPRESSION IS RESTRICTED TO THE FOLLOWING 
ALLOWABLE FORMS. 



n 

i+n 
i-n 

m^i+n 



THE VALUE OF THE SUBSCRIPT EXPRESSION, EVEN WITHOUT 
THE ADDED OR SUBTRACTED CONSTANTS, MUST NEVER BE LESS 
THAN 1, OR GREATER THAN THE VALUE SPECIFIED WITHIN 
THE DIMENSION STATEMENT. 



where m and n-> REPRESENT integer constants 
andi ►represents an integer variable 



example: 



SOLUTION: 



ASSUME THAT WE WANT TO TAKE THE 

3, 5, 7, 9/ 11, ... . •lements out of 

array A and put thorn into tho 1, 2, 3, 4, 5 

elemonts of array B. 

ARRAY "A" 



ARRAY 



LABEL 


c 




STATEMENT 




1 5 


6 


7 






















A ( 2*1 +1 ) 


-»— 4- 


— 1 — 1 — 1 — 






1 1 . . • 1 . . . 




— 1 1 1 1 






:5:):2:0:,:2:0:.;<0: 


. . .1.0 




P,A,U,S,E, 1,1,111 



7 
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INTRODUCTION TO 
SUBROUTINE AND FUNCTION SUBPROGRAMS 



PROGRAM MAIN 
I 




SUBROUTINE INPUT (X) 


CALL*INPUT (X)^^"'^^ 




• 

END 








X = *SUM (A, B) 


. ► 


FUNCTION SUM (A, B ) 
• 

END * 






END * 





• SUBROUTINES and FUNCTIONS are subprograms that are 
EXTERNAL to the main program and perform a specific 
operation. 



• SUBROUTINES may or may not require parameter (argument) 
data. 

• FUNCTIONS must have at least one parameter and produce 
a single value that is returned in the function name. 
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SUBROUTINE SUBPROGRAMS 



SUBROUTINE PECLARATiON 



GENERAL FORM: 

SUBROUTINE CALL 

GENERAL FORM: 

example; 



MAIN PROGRAM 



SUBROUTINE B >\>\>i>v 
SUBROUTINE NAME^ 

CALL BXXXX 



( Q) / O2/ 05 / • • • / **n ) 

DUMMY PARAMETERS 

(OPTIONAL) 

{ A| / Ag/ A3, . . . , An ) 

ACTUAL PARAMETERS 

(OPTIONAL) 



SUBROUTINE 




I I I I I I ■ — f ill 1 ,^ 1 ^ 1 -^ 

.u,T.i,N,E, I .s.ujM, :(;x;.;v.. 



— I I I I I I I I 



t — I I I I — I— I — I— t— I — I I I 



-4 — t—t — y 




THE "CALL SUM" TRANSFERS CONTROL FROM THE MAIN PROGRAM TO THE 
SUBROUTINE. 

THE ADDRESSES OF THE ACTUAL ARGUMENTS IN THE MAIN PROGRAM REPLACE 

THE 6UMMY Arguments of the subroutine. 

THE SUBROUTINE OBTAINS ARGUMENT VALUES ( A, B ) FROM THE MAIN 
PROGRAM, COMPUTES A + B AND STORES (C) IN THE MAIN PROGRAM. 
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SUBROUTINE EXAMPLES 

THE PROGRAMS SHOWN WILL PRODUCE IDENTICAL RESULTS 



EXAMPLE ^ 

IN LINE 





1 1 i - 




III' 




1 1 1 1 1 1 1 






-gMD.(,ip,^,).A.MB, 


MM 
























' 1 1 




1 M - 


-TOiL^.j.f.fcMg.)i 
















-f'Sd" ' " " ' 














III- 


- n 1 1 1 1 1 1 1 1 1 1 


MM 











EXAMPLE 2 

EXTERNAL 



-M- 
-t-l- 



-hrh 



-M- 



7 








S.UW,".T,',NE, .S,U.M.(.X„,Yn,^,). .f 


1 1 1 1 




^ri^"*"l\ M M M 1 1 M M M M If 


I 1 1 1 

I I 1 1 




^M^l 1 1 1 1 1 t 1 1 1 1 M 1 1 1 M 1 l] 



ACTUAL ARGUMENTS (A,B^) "REPLACE" DUMMY ARGUMENTS 
(X,Y,Z) WHICH ARE USED TO WRITE THE SUBROUHNE 
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A SAMPLE SUBROUTINE PROBLEM 

PROBLEM: Write a program which reads two numbers from the 
Teletype and considers them R and THETA. It calls SUBROUTINE 
CONVT (R, THETA, X,Y) which returns X and Y as rectangular 
components of the polar vector R, THETA* Assume that THETA is 
in radians* The program should write the value of X and Y on 
the Teleprinter. Write the subroutine. 



SOLUTION: 







R'E'A'g'?r'W)'R''''?'H'EVA " " " " " ' i 






"|t|A,0|l,1,,,^e,),R,,,T,H^E,T,A, i M i i j i / 






C,A,L,L, ,C,0,N,V,T,(,R„,T^,E,T,A,,;x,;y,) , , ■ i i . i M ii 






W,R[I^T^E^(^2 , 2))^X,, |Y, , | j | i | i | | ■ | | , | | i i | | , i i | | ■ | 






n°WT,(;',(,x„,Y,), =,",„2,f;v0;.,3,), , , , , , i 






^'^Pi 1 1 1 1 1 1 1 1 1 1 ' 1 1 1 1 1 1 1 ■' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 j 






1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t 1 1 1 1 1 1 1 1 1 1 1 1 1' 1 1 '' 1 1 1 <, 1 (, 






S.U.B.R.O.UT.INE, .C,ON VT.( R.AD., ANGLE, XCORD, YCORD).) 






yim,wffls:',A,N,GL,E) 






Y,C,0,RD,^,R,A,D,^,SI,N,(AN,GL,E,) , , , , , 






END 

^ 1 1 1 1 1 t 1 1 1 1 1 1 M 1 i ' 1 1 1 t ' 1 i 1 1 1 1 1 r i 1 ' i-j-i^j^iy 



. R, THETA ARE INPUT PARAMETERS 
. X,Y ARE OUTPUT PARAMETERS 



5-20 



Programming Course 
Students Manual 



LESSON :s: 

FORTRAN Programming Techniques 



FUNCTION SUBPROGRAMS 



FUNCTION DECLARATION 



(Oi ,02/ 03, . . . / a„ ) ~ ^ 

t T 
NAME OF THE FUNCTION DUMMY PARAMETERS ARITHMETIC 



GENERAL FORM: FUNCTION B AAAA 



EXPRESSION 



FUNCTION CALL 



GENERAL FORM; Y = B AAAA 



( A| , Azi A3, . . 
(ACTUAL PAI^AMETERS) 



An) 



MAIN PROGRAM 



FUNCTION SUBPROGRAM 







P.R.Q.G,'=^.A,M. .A,D,D.I.T 






R.EA.D^^n^,)A»,B, .,,......./ 


^ 




C,=,A.D,D.F,( A,.,B.): .,..,,.,.,,/ 






W,R.I,T,E.(,2 1.0.0,):C >N 


^1,00 




FORMAT("THE SUM =",,F9..2)\ 


] ' 1 
— I — 1 — 

L 1 




III 1 1 1 — *-H — 1 ' 1 — > 1 ■ — • — 1 — 1 1 1 1 — I'll) 
III 1 I 1 1 1 I 1 1 1 1 1 1 1 1 1 1 1 1 



| F ' uN ! cVl0 ' NrA ' D ' D ' F ! ( ' A'.'B') 

< I I I I I I I Ji I I I — I I — r— 



A,D,D.F.= .A4,B. 



EM 



f-t-4- 



I I I I 



I I I I — ^ 




THE FUNCTION DECLARATION ESTABLISHES (A, B) TO BE DUMMY PARAMETERS. 

THE PROGRAM CALLS THE FUNCTION AND PROVIDES ACTUAL PARAMETERS (A, B) 
THE (A, B) IN THE PROGRAM AND THE (A, B) IN THE FUNCTION ARE NOT THE SAME. 
THE MODE OF THE DUMMY PARAMETERS (REAL AND/OR INTEGER) USED IN THE FUNCTION 
DECLARATION MUST CORRESPOND TO THE MODE OF THE ACTUAL PARAMETERS USED IN THE 
FUNCTION CALL. 
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INTEGER AND REAL FUNCTIONS 

• INTEGER FUNCTIONS START WITH THE LETTERS l,J,K,L,M,N 

• REAL FUNCTIONS START WITH THE LETTERS A-H AND O-Z 

EXAMPLE 1 A FUNCTION TO FIND THE LARGEST OF TWO INTEGERS. 







F.U.N.CT.I,O.N. .I.B,I.G,(.J,,K.), , , , 






I f'( J-K )10 , 2 ' 1 ' 1 1 1 1 


-h- 1 — 1 1 — 




i'biWk" "'!!:"'!! ' 

— 1— 1— 1 — 1—1—^ — M — 1 — III — H — — M— 

R.E,T.U.RN — ' ' , 


' ' 'z'o 

-1— 1 — 1 — 1 — 




i'b'i'g'Wj' I ' I M m I I I 






M 1 1 1 < 1 1 1 1 1 1 1 1 

E.N.D .... 



CAUSES A RETURN TO 
THE CALLING PROGRAM. 



EXAMPLE 2 



A FUNCTION THAT COMPARES AN INTEGER AGAINST A HIGH AND 
LOW LIMIT, AND: 

SETS X = + 1 IF DATA > HIGH LIMIT 



EXAMPLE 3 



I = - 
I = 


1 IF DATA < LOW LIMIT 

IF DATA IS WITHIN LIMITS 


H — 1—1 — 1 — 




11-11 1 1 t- 1 1 — 1 1 1 ( 1 1 1 < 1 1 t 1 1 1 1 1 1 1 1 1 1 

F,U,N,C,T^,0,N, ,I,C,M,P,R,(,XH,I,.,X,L,0,„DA,T^,), , , 


1 t 1 1 




1 1 1 1 1 ' 1 ii 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 






i,F|(,D,A,T,v,)^H,i,),i,0,„i,e^g..,i,e>,0, 






^I'l^l 1 1 1 1 1 1 1 1 ' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 I" 1 — 






I,F,(,D,A,T,A-,X,L,O,),2,0,.,2,0,,,1,0.0, ,,,,,,, , 


11(1 




^I'l""^! t 1 1 t 1 1 1 1 ' 1 1 1 1 M t I t t 1 1 t 1 1 t — 


, ,1>«> 

-1 — t— t— I — 




^l^l^l^i'^l'l^S 1 1 1 1 1 1 1 , 1 1 1 1 , 1 1 1 M 1 1 1 1 


1,11 




^1*^1^1 ' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 t t 1 1 1 1 1 



A "REAL 
TRIANGLE. 



FUNCTION TO COMPUTE THE HYPOTENUSE OF A RIGHT 



-i — f — t— 1— 






> 1 t 1 




1 1 1 — ' 1 1 1 1 1 1 < 1 1 1 t — II I ( t ■< 1 ( 1 — h 

FUNCTION HYPOT( X , Y ) 


— 1 — t — 1— +- 




— 1 — i — 1 — 1 — 1 — t — 1 — 1 — 1 — t — 1 — 1 — ) — h— 1 — ^-i-i — h-H — 1 — 1 — 1 — 1 — 1 1 

HYP 0T= SORT ( X^X+Y^Y ) 






e'm'o' ■ ' m I I 1 I I ' 


— {— 1 — 1 — 1 — 




— < — y~\ — 1 t 1 1 t ) — t-H— i — 1 — 1 — 1 — ^-1— 1 — f 1 t 1 — 1 — \ — 1- 
i 1 < 1 ' ' 1 ' 1 1 1 1 1 1 t 1 1 1 1 1 1 t 1 ' 
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A SAMPLE FUNCTION PROBLEM 



THE PROGRAM SHOWN BELOW WILL EVALUATE A QUADRATIC EQUATION AND 
PRINT ONE ROOT IF THE DISCRIMINANT IS POSITIVE. THE FUNCTION DISC (A,B,C,I) 
EVALUATES SORT (ABS(B*B-4.*A*C) ) AND RETURNS.' 



Z = 1 FOR A POSITIVE DISCRIMINANT 
I = -1 FOR A NEGATIVE DISCRIMINANT 



THE PROGRAM 







P^R 6|R A|M Q U|A|D| , , , 1 , , , , 1 






r|e'a|d(|5 ,|W )V ,'b , 'c| 1 1 1 ' 1 1 ! ', ! 1 ! 1 ! ! ,' ' ' 






r|o'ot'i =V- b +|Di's'cVa ,'b','C|, i')') / ('z'^WaV ' y 






^y^^yM ! ■ i 1 i i i 1 . ■ ! ■ ! i ! i : ! ! i ! i ! ! IS 


' '2 




WR|IT|E {|2|. 0^ ) RO 0|T|1 ^ , ^ \ 






f|o'r|m A (^"|r|o'o|t' |o|ne' |= '" ' . |e ' 1 V- |7 V , | | | i 


1 '3 




p|a|U|S|e| ill 1 1 , ! 1 1 1 , 1 ! , ! ! 1 1 ' '1 ' '1 ! ! 






6,0, |T|o, 1 1 1 1 1 ' 1 1 1 1 , 1 1 i I i' I 1 1 , ! ' i '1 > 















THE FUNCTION 



1 1 1 1 




1 1 — 1 — 1 1 1 1 1 — 1 — III! — 1—1 — h-\ — 1 — 'III! 

FUNCTION I S C| ( A , B^, C .^I )f 






X = B Vb -'4 -I^ A -J^.C' ' 1 ! ! ! ' 1 ' ' \ 






l' = ' i 1 ' ' ' ' 1 1 1 1 I ' / 






i'fI(|x' )!i'e)' 'z'o' ' ' ' 1 ' 1 1 ' 1 1 y 






I = - 1 ' I . \ 






X'r'-'x' '■''''''■'''''''>) 

— 1 — h^H — 1 — 1— 1 — 1 — 1 — f— 1 — 1 — 1 — 1 — 1 — 1 — 1 — 1 — >—t-/ 






D I.SC » S^Q^R T ( X, ) , r 


1 1 1 




1 ;;;;; 1./ 



NOTE: FUNCTIONS CAN RETURN 
MORE THAN ONE VALUE. 

THE RESULTS OF FUNCTION 
"DISC" ARE RETURNED 
TO THE MAIN PROGRAM 
USING THE A & B 
REGISTERS WHILE "I" IS 
STORED IN THE MAIN 
PROGRAM USING THE 
PARAMETER LIST. 
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UDJcCIIVBS 


D- 1 


i^ompuiur vvoras 




vvuru rvJiiiidi 




f*nmni it"irifi OnPrJitirinQ 


6-4 


r\ oa^txr 1 i^u LCI 


6-5 


Computer Instructions 


O-D 


Instruction Execution 


6-7A 


Instruction Execution (Cont'd) 


6-7B 


HP Computer Block Diagram 


6-8 


Memory Addressing 


6-9 


Memory Address Register 


6-10 


Memory Addressing Modes 


6-11 



Current Page Addressing 


6-12 


Zero Page Addressing 


6-13 


indirect Addressing (Part 1) 


6-14 


Indirect Addressing (Part 2) 


6-15 


Memory Addressing Review 


6-16 


Addressable Registers 


6-17 


Computer Arithmetic Operations 


6-18 


Positive Overflow 


6-19 


Negative Overflow 


6-20 


Mixed Sign Addition 


6-21 


Table of Conditions; Overflow & 




Extend Registers 
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LESSON m OBJECTIVES 



THIS LESSON IS A DISCUSSION OF THE HARDWARE CAPABILITIES 
OF HEWLETT PACKARD COMPUTERS, AND IS A PREREQUISITE TO 
ANY DISCUSSION OF THE HEWLETT PACKARD ASSEMBLER PRO- 
GRAM. LESSON YL WILL PROVIDE A KNOWLEDGE OF THE 
HARDWARE CAPABILITIES OF THE COMPUTER THAT IS ESSENTIAL 
TO THE ASSEMBLY LANGUAGE PROGRAMMER. 
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COMPUTER WORDS 



COMPUTER WORDS ARE USED TO REPRESENT! 



DATA WORDS - STORE DATA USED IN COM - 

ROTATION SUCH AS! 5, 10, 
+ 32767, -32767. 

INSTRUCTION W0RDS- 4ffE ORDERS THAT TELL THE 

MACHINE WHAT TO DO -SUCH 
AS ADD, SHIFT OR STORE DATA, 

ADDRESS WORDS - ARE USED TO SPECIFY A 15_ 

BIT MEMORY ADDRESS VALUE 
IN THE RANGE 0-32767io. 
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FIVE BASIC WORD FORMATS - 

ARE USED IN HP COMPUTERS TO REPRESENT 
INSTRUCTIONS, ADDRESSES AND DATA, 

i. Memory Reference Instruction 



15 


14 13 12 11 


10 


9876543210 


D/I 


OP 


Z/C 


WORD ADDRESS 



2. Register Reference Instruction 



15 14 13 12 11 10 


9 876543210 


OP 


MICRO OP 


Input-Output Instruction 


15 14 13 12 11 10 


9 8 7 6 


5 4 3 2 1 


OP 


SUB OP 


SELECT CODE 



4. Full Address 



15 


14 


13 


12 11 10 


9 


8 


7 6 


5 4 3 


2 


1 





D/I 




PAGE 


ADDRESS 






WORD 


ADDRESS 









5. Data (single-precision inte ger) 



15 


14 13 12 11 


10 9 


8 7 6 


5 


4 


3 


2 


1 





SIGN 


INTEGER 
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COMPUTING OPERATIONS 

ASSUME THE FOLLOWING INITIAL CONDITIONS: 

1. A PROBLEM CONSISTING OF n COMPUTER INSTRUC- 
TIONS IS STORED IN SEQUENTIAL MEMORY LOCATIONS. 

2. THE MEMORY ADDRESS OF THE FIRST INSTRUCTION 

IS PLACED IN THE COMPUTER" PROGRAM COUNTER" 
REGISTER. 

PROGRAM EXECUTION FOLLOWS THIS SIMPLE PATTERN! 

1. READ (FETCH) AN INSTRUCTION FROM MEMORY* 

2. DECODE THE INSTRUCTION. IF THE INSTRUCTION IS 
NOT A MEMORY REFERENCE TYPE, GO TO 4. 

3. READ THE OPERAND FROM MEMORY. 

4. EXECUTE THE INSTRUCTION. 

5. INCREMENT THE "PROGRAM COUNTER" REGISTER. 

6. GO TO STEP 1. 
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A BASIC COMPUTER 



PROGRAM INSTRUCTIONS 
PROGRAM DATA 



m MEMORY 



r-i ARITHMETIC 
UJ UNIT 



ACCUMULATORS 
ARITHMETIC 
AND 
LOGICAL 
CIRCUITS 



TIMING CIRCUITS 
MEMORY ADDRESS REGISTERS 
MEMORY DATA REGISTERS 
PROGRAM COUNTER REGISTER 





I/O 


< — 


c 









N 




T 


— ► 


R 








INPUT 
DEVICE 



OUTPUT 
DEVICE 



HNPUT/OUTPU" 
DEVICE 



3 



CENTRAL PROCESSING UNIT 

1 MEMORY CONTAINS ALL PROGRAM INSTRUCTIONS AND PROGRAM 
CONSTANTS (NUMBfRS) 

2 THE C.P.U. CONTROLS AND DIRECTS ALL COMPUTER OPERATIONS. 

3 THE ARITHMETIC UNIT PERFORMS ALL LOGICAL AND ARITHMETIC 
OPERATIONS, AS DIRECTED BY THE C.P.U. 

4 THE I/O DEVICES, DIRECTED BY THE C.P.U., TRANSFER DATA OR 
INSTRUCTIONS TO OR FROM MEMORY. 
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COMPUTER INSTRUCTIONS 



ON THE NEXT FEW SLIDES THE COMPUTER'S INSTRUCTION 
EXECUTION SEQUENCE WILL BE DISCUSSED. A BRIEF REVIEW 
OF COMPUTER INSTRUCTIONS IS SHOWN. 

FOR EXAMPLE 



translation: 

LOAD REGISTER "A" WITH THE CONTENTS OF MEMORY LOCATION 
"J" REMEMBER, THE COMPUTER ONLY UNDERSTANDS 060200. 
LDA J IS STRICTLY FOR OUR BENEFIT 

note: in this example "j" is arbitrarily representing memory 

LOCATION 200fi. 



instruction 
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EXAMPLE 
(LDA J = 060200) 



MEMORY ADDRESS REGISTER 



000100 



I 



CORE MEMORY 



I 



MEMORY DATA REGISTER 



060 200 



INSTRUCTION 
REGISTER 



PROGRAM COUNTER 



000 100 



A- ACCUMULATOR 



B -ACCUMULATOR 



INSTRUCTION EXECUTION 



ADDER ETC. 



a. Instruction is Read from Memory 
INSTRUCTION IN LOCATION 100 - FETCH PHASE 



MEMORY ADDRESS REGISTER 



000 200 



I 



CORE MEMORY 



f T 



MEMORY DATA REGISTER 



060 200 



I 



INSTRUCTION 
REGISTER 



060 



PROGRAM COUNTER 



000 100 



A - ACCUMULATOR 



B - ACCUMULATOR 



b. End of Fetch Phase 



ADDER ETC. 
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EXAMPLE 
(LDA J =060200) 



MEMORY ADDRESS REGISTER 



000 200 



I 



CORE MEMORY 



I 



MEMORY DATA REGISTER 



77 777 



INSTRUCTION 
REGISTER 



060 



PROGRAM COUNTER 



000 100 



A- ACCUMULATOR 



77 777 



B- ACCUMULATOR 



INSTRUCTION EXECUTiON cont'd 



ADDER ETC. 



c. Instruction Executed 
INSTRUCTION IN LOCATION 100 -EXECUTE PHASE 



MEMORY ADDRESS REGISTER 



000 10i 



CORE MEMORY 



T— T 



MEMORY DATA REGISTER 



77 777 



I 



INSTRUCTION 
REGISTER 



060 



PROGRAM COUNTER 



000 101 



A - ACCUMULATOR 



77 777 



B - ACCUMULATOR 



ADDER ETC, 



d. End of Execute Phase 
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TIMING 
GENERATOR 



I 



MEMORY ADDRESS 



HP - Computer 



iLOCK 
DIAGRAM 



READ/ WRITE 

i 
I 
I 
I 
I 
I 

I 



DECODER 








r., .! 


r . 




Y 










MEMORY 





\ I - REG 



READ 



FUNCTtON 



STORE 



7^ 



BUS 



T - REGISTER 



P- REGISTER 



¥ M-RE6ISTER 



A- REGISTER 



ADD 
lOR 
EOR 
AND 
COMPL. 
SHIFT 



B- REGISTER 



X 



IextenoHoverfljow 



SWITCH REGISTER 



R BUS 



INPUT/OUTPUT 
CONTROL 



-m 



S BUS 




SELECT CODE 



CONTROL 



fx 



3 



BUFFER I iCjFl BUFFER 



DATA T /N 



DATA ▼ OUT 



MEMORY 
UNIT 



CONTROL 
UNIT 



ARITHMETIC 
UNIT 



INPUT/ OUTPUT 
UNIT 
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BASIC 
MODULE 
4K 

Page-0 



2 
1 - 



SECOND 
MODULE 
4K 

Page-4 



( EACH PAGE CONTAINS i024io LOCATIONS ) 



MODULE 


PAGE 


OCTAL 


FROM 


TO 


BASIC 








01777 


II 


i 


02000 


03777 


II 


2 


04000 


05777 


II 


3 


06000 


07777 


SECOND 


4 


10000 


11777 


II 


5 


12000 


13777 


II 


6 


14000 


15777 


II 


7 


16000 


17777 



MEMORY ADDRESSING (8K) 
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MEMORY 



6000 - 


7777 


4000 - 


5777 


2000 - 


3777 


0000 - 


i777 



15 


14 43 H2 ] 41 10 


9876543240 


X 


PAGE 
ADDRESS 


WORD ADDRESS 



3 


0000 — 1777 


2 


0000 - 1777 


i 


0000 — 1777 





0000 — 1777 



MEMORY ADDRESS REGISTER 
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I MEMORY REFERENCE INSTRUCTION I 



15 


14 H 


10 


9 


% 


OP CODE 


% 


MEMORY ADDRESS 



INSTRUCTION 
1 




ZERO PAGE 
(BIT 10=0) 



INSTRUCTION 



CURRENT PAGE 
(BIT i0=1) 



DATA 



INSTRUCTION- 

- <INDIRECT ADDRESS " 
1 



- CiNDIRECT ADDRESS 





INDIRECT 
(BIT15=i) 



MEMORY ADDRESSING MODES 
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CURRENT PAGE 



CORE 
MEMORY 





T -REGISTER 




15 


14 13 12 


11 


10 


9 


8 1 7 6 5 


4 3 


2 10 


D/I 


OP-COD 






WORD ADDRESS 





1,1,0 


0,1 


'l 


0,0 ,i 


0,0,0 


0,0,0 





6 


3 




1 










D/i 


OP -COD 


E ?/C 





1,1,0 


0,1 





PAGE ADDRESS 


WORD ADDRESS 





0,0 


1 ,1 ,1 


1 


0,0,1 


0,0,0 


0,0,0 



(DNSTRUCTION (S O EMORY ADDRESS REGISTER 
REGISTER 

notes: 

@ INSTRUCTION TRANSFERRED FROM MEMORY TO THE T-REGISTER. 
@ BITS 10-15 TRANSFERRED FROM T-REG. TO THE I-REG» 

® BITS 0-9 FROM T-REG. ARE MERGED WITH BITS 10-15 OF THE 
M - REG. 



MEMORY REFERENCE INSTRUCTION DECODING 
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ZERO PAGE 



CORE 
MEMORY 






T-REGISTER 




15 


14 13 12 


11 


10 


9 


8 7 6 


5 


4 3 2 1 




OP-COD 




z/c 


WORD ADDRESS 





A A 





A 


i 











6 


1 1 


1 











immmmmmmmmt 
OP-CODE Z/c 





>I,1,0 


0,0 






PAGE ADDRESS 


WORD ADDRESS 








0,0,0 


i 


0,0,1 


0,0,0 


0,0,0 



(D nSTRUCTION (ra) EMORY ADDRESS REGISTER 



NOTES: 



REGISTER 



® INSTRUCTION TRANSFERRED FROM MEMORY TO THE T-REGISTER. 
2^ BITS 10-15 TRANSFERRED FROM T-RE6. TO THE I- REG. 



@ BITS 0-9 TRANSFERRED FROM T-REG TO THE M-REG AND BITS 
10-15 OF M-REG ARE CLEARED TO ZERO. 



MEMORY REFERENCE INSTRUCTION DECODING 



6-13 



Programming Course 
Students Manual 



LESS0N3ZE 

Introduction to HP Computer Hardware 




INDIRECT PART I 





T- REGISTER 




15 


14 13 12 11 


10 


9 8 7 6 5 


4 3 2 1 


% 


OP-CODE 


z/c 


WORD ADDRESS 


A 


1,i,0 


1 




0,0,1 


0,0,0 


,0 ,0 


1 


6 


1 1 


1 











OP -CODE 




1 


1,1,0 










PAGE ADDRESS 


WORD ADDRESS 





,0 


1,1,1 


1 


0,0,1 


0,0,0 


,0,0 



( DNSTRUCTION (Rb EMORY ADDRESS REGISTER 
notes: register 

© INSTRUCTION TRANSFERRED FROM MEMORY TO THE T-REGISTER- 
5) BITS 10-15 TRANSFERRED FROM T-REG.TOTHE I- REG- 



(D BITS 0-9 FROM T-REG. ARE MERGED WITH BITS 10-15 OF THE M-REG. 
BIT 15 OF I -REG. - 1 CAUSES ANOTHER CYCLE TO BEGIN. 



MEMORY REFERENCE INSTRUCTION DECODING 
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CORE 
MEMORY 




INDIRECT PART E 





T- REGISTER 




-15 


14 13 12 


11 10 


9 8 1 7 6 


5 


4 3 2 1 




PAGE AD 


DRESS 


WORD ADDRESS 








A 




















4 

















OP-CODE Z/c 






PAGE ADDRESS 


WORD ADDRESS 




^,i,0 


0,1 







,0 


0,1,0 





0,0,0 



I I 


0,0,0 



(D nstruction 
register 



EMORY ADDRESS REGISTER 



NOTES: 



® THE 15 BIT ADDRESS IS TRANSFERRED FROM MEMORY TO THE "T"-RE6ISTER 
(D BITS 0-15 TRANSFERRED FROM T-REGISTER TO THE M- REGISTER . 

I-REG IS NOT CHANGED 



MEMORY REFERENCE INSTRUCTION DECODING 



6-15 



Programming Course 
Students Manual 



LESSON 30: 

Introduction to HP Computer Hardware 



( BiT-m=i) 



PAGE 3 



PAGE 2 



PAGE^ 



PAGE0 



(BtT10=o) 



MEMORY ADDRESSING 
(DIRECT) 



BIT 10=1 
BIT 15=1 



BIT10=0 
BIT15=1 



PAGE 3 



PAGE 2 



INDIRECT ADDRESS 

PAGEi 



INDIRECT ADDRESS 

PAGE0 



MEMORY ADDRESSING 
(INDIRECT) 



MEMORY ADDRESSING REVIEW 
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A UNIQUE FEATURE OF H-P COMPUTERS IS THE ABILITY TO 
ADDRESS THE "A" OR "B" REGISTERS DIRECTLY. THE METHOD 
USED TO PROVIDE THIS FEATURE WAS TO MAKE REGISTER 
"A" SYNONYMOUS WITH MEMORY ADDRESS AND REGISTER 
"B" SYNONYMOUS WITH MEMORY ADDRESS 

THEREFORE 

MEMORY ADDRESS IS THE "A" REGISTER. 
MEMORY ADDRESS i IS THE "B" REGISTER. 

EXAMPLE 

LOAD THE "A" REGISTER WITH THE CONTENTS OF THE 
"B" REGISTER. 



MNEMONIC 



MACHINE CODE 



LDA 1 



oeoooi 



ADDRESSABLE REGISTERS 
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COMPUTER ARITHMETIC OPERATIONS 



THE BASIC ARITHMETIC OPERATION OF THE COMPUTER 
IS THE INTEGER ADD. IT IS IMPORTANT THAT THE PRO- 
GRAMMER UNDERSTAND HOW THE MACHINE PERFORMS 
THIS BASIC OPERATION. 

FOR EXAMPLE, ADA Y MEANS! 

TO THE CONTENTS OF REGISTER "A" ADD THE 
CONTENTS OF MEMORY LOCATION Y. THE SUM 
REPLACES THE PREVIOUS CONTENTS OF 
REGISTER "A'l 



MEMORY DATA REGISTER (T) 



ADDEND ( CONTENTS OF LOCATION Y) 



EXTEND 



IS SET FOR 
ACCUMULATOR OVER- 
FLOW 



ACCUMULATOR REG. (A orB) 



ADDER 
{CIRCUITS 



X 



T 



OVER- 
FLOW 



AUGEND (REGISTER CONTENTS) 
IS SET FOR ARITHMETIC OVERFLOW 



SUM 
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OVFLO E 



INSTRUCTION 

ADD 



] 



MEMORY 


















































1 1 1 1 1 







A 


1 


i 








i 


A 


i 


i 


i 


i 


1 


1 



i5 



A OR B REGISTER 



POSITIVE OVERFLOW CASE. THE CARRY IN TO BIT i5 
CHANGES THE SIGN. THE ADDITION OF TWO POSITIVE 
NUMBERS CANNOT CORRECTLY PRODUCE A NEGATIVE 
RESULT. THE OVERFLOW LAMP IS ON. 



OVFLO E 





MEMORY 
















































i 


1 1 


1 
















































P AFTER 



15 



A OR B REGISTER 

POSITIVE OVERFLOW 
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MEMORY 

























































1 1 


BEFORE 














































^ 




OVFLO E 

INSTRUCTION 
[ ADD ] 


^^ A OR R RFGISTFR 

NEGATIVE OVERFLOW. NO CARRY _IN TO BIT i5 CHANGES 
THE SIGN. THE ADDITION OF TWO NEGATIVE NUMBERS 
CANNOT CORRECTLY PRODUCE A POSITIVE RESULT. THE 
OVERFLOW LAMP IS ON AND THE CARRY FROM BIT 15 
WILL SET E TO 1. 

MEMORY 





















































OVFUD E 


1 1 1 


AFTER 


H □ 





















































i5 

NEGATIVE OVERFLOW 
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OVFLO 



MEMORY 






1 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


1 


i 


1 






A 


A 














A 


A 


A 












BEFORE 



i5 



A OR B REGISTER 



INSTRUCTION 

■ 1 A POSITIVE NUMBER ADDED TO A NEGATIVE NUMBER 

J (OR THE CONVERSE) WILL NEVER SET THE OVERFLOW 

CONDITION. IT IS POSSIBLE HOWEVER TO SET "E" TO 
1 WITHOUT THE OVERFLOW CONDITION. 



OVFUO 



□ 



MEMORY 






A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


A 


1 


1 


1 




1 




1 


1 










1 




1 


1 





A 


A 


A 


A 


A 














A 


A 





A 


A 


A 



15 



A OR B REGISTER 



ADDITION OF POSITIVE AND NEGATIVE NUMBERS 
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MEMORY 


A/B REGISTER 


RESULT 


"OVFLO " 


"E" REGISTER 


+ 


+ 


+ 


NO 







H- 




YES 











NO 


1 OR 






+ 


NO 


i OR 








NO 


^ 






-4- 


YES 





OVFLO, E REGISTERS CAN BE SET BY ADD OR 
INCREMENT INSTRUCTIONS. 



TABLE OF CONDITIONS 

(STATUS OF "OVF" 8 "E" REGISTERS) 
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LESSON 3Zn 

INTRODUCTION TO THE HP ASSEMBLER PROGRAM 



Objectives 


7-1 


'E' Register Instructions - CLE,CME,CCE 


7-25 


Introduction to HP Assembly Language 


7-2 


Decision Making Instructions 


7-26 


Compilers and Assemblers 


7-3 


Skip on Zero — SZA/B 


7-27 


The Assembly Language vs FORTRAN 


7-4 


Skip Sign Positive — SSA/B 


7-28 


From Problem to Program 


7-5 


Example - "A Test for Positive/Negative" 


7-29 


Problem Definition 


7-6 


Skip on L.S.fe. Zero — SLA/B 


7-30 


Assembler Coding Form 


7-7 


SEZ Instruction 


7-31 


Assembler Program Operations 


7-8 


RSS Instruction 


7-32 


Assembler Processing - Pass 1 


7-9 


Alter-Skip Instruction Combining Guide 


7-33 


Assembler Processing - Pass 2 


7-10 


Example - "A Combined Alter-Skip Instruction" 


7-34 


Assembly Listing 


7-11 


Accumulator Left Shift — A/BLS 


7-35 


The Assembler Character Set 


7-12 


Accumulator Right Shift - A/BRS 


7-36 


The Control Statements 


7-13 


Rotate Accumulator Left — R(A/B)L 


7-37 


Using the Assembler Coding Sheet 


7-14 


Rotate Accumulator Right - R(A/B)R 


7-38 


Examples of Labels 


7-15 


Example - "A Test of Bits 14 & 15" 


7-39 


Special Use of the Asterisk in the Label Field 


7-16 


'E' Right with Accumulator — ER{A/B) 


7-40 


Remarks Field 


7-17 


'E' Left with Accumulator — EL(A/B) 


7-41 


Relative Addressing 


7-18 


Accumulator Left Rotate Four - A/BLF 


7-42 


Symbol Definition 


7-19 


Shift-Rotate Instruction Combining Guide 


7-43 


Clear Accumulator — CLA/B 


7-20 


Example - "A Combined Shift-Rotate Instruction" 


7-44 


Complement Accumulator — CMA/B 


7-21 


Logical Truth Table 


7-45 


Clear, Complement the Accumulator — CCA/B 


7-22 


The AND Instruction 


7-46 


Increment the Accumulator — IIMA/B 


7-23 


The Compare Instruction - CPA/B 


7-47 


Subtract Example 


7-24 


A Compare Instruction Example 
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LESSON mi OBJECTIVES 

THIS LESSON PROVIDES A BRIEF OVER VIEW OF ASSEMBLY 
LANGUAGE PROGRAMMING AND INTRODUCES THE INDIVIDUAL 
ASSEMBLER INSTRUCTIONS. THE ASSEMBLER INSTRUCTIONS ARE 
LIKE TOOLS IN A TOOLBOX. LEARNING HOW TO USE EACH 
'TOOL" IN THE TOOLBOX IS THE JOB OF THE ASSEMBLY 
LANGUAGE PROGRAMMER. 

THE PRIMARY OBJECTIVE OF LESSON W. IS TO PROVIDE 
ENOUGH ASSEMBLER 'TOOLS" TO ENABLE THE STUDENT 
TO WRITE A SIMPLE ASSEMBLY LANGUAGE PROGRAM . 
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INTRODUCTION TO HP 
ASSEMBLY LANGUAGE 

THE FORTRAN, STATEMENT, X=B^B-4.XA^C 
PRODUCED THE FOLLOWING ASSEMBLY LANGUAGE CODE*. 

SYMBOLIC CODE EXPLANATION 



DLD 


B 


LOAD B (INTO ACCUMULATORS) 


FMP 


B 


MULTIPLY B (B^) 


DST 


X 


STORE RESULT TO X 


DLD 


RM4 


LOAD MINUS 4. (-4.) 


FMP 


A 


MULTIPLY A (-4. A) 


FMP 


C 


MULTIPLY C {-4.AC) 


FAD 


X 


ADD X {b2-4,AC) 


DST 


X 


STORE RESULT TO X 
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COMPILERS AND ASSEMBLERS 



"FORTRAN LANGUAGE" 
INPUT 



1 = J+K 



H-P COMPUTER 



FORTRAN 

COMPILER 
PROGRAM 



COMPILER 
OUTPUT 




LDA J 
ADA K 
STA I 



"ASSEMBLER LANGUAGE" 
INPUT 



LDA J 
ADA K 
STA I 






H-P COMPUTER 


ASSEMBLER 
PROGRAM 


► 



ASSEMBLER 
OUTPUT/ ' MACHINE LANGUAGE 




NOTES: 



OUTPUT OF THE COMPILER BECOMES THE ASSEMBLER INPUT 
OUTPUT OF THE ASSEMBLER IS IN MACHINE LANGUAGE 

THE HP FORTRAN COMPILER (PASS 2 SECTION) CONTAINS 
AVERSION OF THE HP ASSEMBLER PROGRAM. 
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THE ASSEMBLY LANGUAGE 
VS FORTRAN 



WHY TEACH ASSEMBLY LANGUAGE WHEN FORTRAN 

IS AVAILABLE ? 

ANSWER 



1. ASSEMBLY LANGUAGE IS USED FOR ALL HP 
SOFTWARE DEVELOPMENT. 

2. CERTAIN PROGRAMMING APPLICATION PROBLEMS 
ARE DIFFICULT OR IMPOSSIBLE TO SOLVE USING 
FORTRAN. 

3. USER DEVELOPED ASSEMBLER LANGUAGE SUB- 
ROUTINES CALLED BY FORTRAN MAIN PROGRAMS. 
ENHANCE THE TOTAL CAPABILITY OF THE COM- 
PUTING SYSTEM. 



THE HEWLETT-PACKARD SYMBOLIC ASSEMBLER PROVIDES 
"MEMORY PAGE FREE" PROGRAMMING AND IS A VERY 

EFFICIENT METHOD OF CREATING MACHINE 
LANGUAGE COMPUTER PROGRAMS. 
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THE TEN STEPS FROM PROBLEM 

TO PROGRAM 



STEP 1 - DEFINE THE PROBLEM. 

STEP 2 - PREPARE A FLOWCHART SOLUTION. 

STEP 3 - WRITE AN ASSEMBLY LANGUAGE PROGRAM. 

STEP 4 - KEYPUNCH THE SOURCE LANGUAGE TAPE USING A 
TELEPRINTER. 

STEP 5 - LOAD THE ASSEMBLER PROGRAM INTO THE HP COMPUTER. 

STEP 6 - ASSEMBLE THE SOURCE PROGRAM, 

STEP 7 - LOAD THE BASIC CONTROL SYSTEM INTO THE HP COMPUTER. 

STEP 8 - LOAD THE ASSEMBLER PRODUCED BINARY OBJECT TAPE. 

STEP 9 - (OPTIONAL) LOAD LIBRARY ROUTINES. 

STEP AO EXECUTE THE OBJECT PROGRAM. 
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PROBLEM DEFINITION 



1. USING ASSEMBLY LANGUAGE TECHNIQUES WRITE 
A PROGRAM TO COMPUTE IANSR= J H-K 

Where J=15726>io 
K=9279io 

2. FLOWCHART SOLUTION 



Q START ^ 



LOAD REGISTER 

"A" WITH 
CONTENTS OF 
UOCATION "J" 



I 



ADD TO REG. "A" 
THE CONTENTS 
OF LOCATION "k" 



I 



STORE REG. "a" 

10 MEMORY ^ 
IjOCATION"IANSR' 



£ 
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ASSEMBLER CODING FORM 



HP ASSEMBLER CODING FORM 



Progrommer I. R. SMART |Dote5-27-68 | Program SAMPLE PROG. 


Label Operation Operand 
15 10 15 2( 


) 25 3( 


Statement 

> 35 40 45 50 55 


A 


S 


M 


B 


JL. 


R 


J. 


B 




L 




T 
















































































j 








T 


H 


I 


S 




I 


S 




A 




S 


A 


M 


P 


L 


E 




A 


S 


S 


E 


M 


B 


L 


Y 




L 


A 


N 


6 


U 


A 


G 


E 




P 


R 





G 


R 


A 


M 


















1 








A 


S 


T 


E 


R 


I 


S 


K 




I 


N 




C 





L 




1 




I 


N 


D 


I 


C 


A 


T 


E 


S 




11 


C 





M 


M 


E 


N 


T 


II 




S 


T 


A 


T 


E 


M 


E 


N 


T 








1 








P 


R 





6 


R 


A 


M 




T 







C 





M 


P 


U 


T 


E 




r 


A 


N 


S 


R 


= 


J 


+ 


K 


1 


W 


H 


E 


R 


E 




J 


r 


1 


5 


7 


2 


6 


f 


K 


r 


9 


2 


7 


9 




1 














































































R 


E 


M 


A 


R 


K 


S 




F 


I 


E 


L 


D 






I 


















N 


A 


M 




S 


A 


M 


P 


L 












p 


R 





G 


R 


A 


M 




N 


A 


M 


E 




I 


S 




S 


A 


M 


P 


L 






















! 


















E 


N 


T 




s 


T 


A 


R 


T 












T 


H 


I 


S 




D 


E 


F 


I 


N 


E 


S 




T 


H 


E 




II 


E 


N 


T 


R 


Y 




P 





I 


N 


T 


II 










K 












D 


E 


C 




9 


2 


7 


9 














K 




I 


S 




D 


E 


F 


I 


N 


E 


D 




A 


S 




A 




D 


E 


C 




C 





N 


s 


T 


A 


N 


T 










J 












D 


E 


C 




1 


5 


7 


2 


6 












J 




I 


S 




D 


E 


F 


I 


N 


E 


D 




A 


S 




A 




D 


E 


C 




C 





N 


s 


T 


A 


N 


T 










I 


A 


N 


S 


R 







C 


T 

























R 


E 


S 


E 


R 


V 


E 


S 




A 




M 


E 


M 





R 


Y 




C 


E 


L 


L 




F 





R 




I 


A 


N 


S 


r! 






S 


T 


A 


R 


T 




N 





P 
























T 


H 


I 


S 




I 


S 




T 


H 


E 




E 


N 


T 


R 


Y 




P 





I 


N 


T 




































L 


D 


A 




J 




















L 





A 


D 




J 




I 


N 


T 







R 


E 


G 


I 


S 


T 


E 


R 




II 


A 


II 


































A 


D 


A 




K 




















A 


D 


D 




C 





N 


T 


E 


N 


T 


S 







F 




K 




T 







R 


E 


G 




II 


A 


It 


























S 


T 


A 




I 


A 


N 


S 


R 












S 


T 





R 


E 




J 


+ 


K 




T 







M 


E 


M 





R 


Y 




C 


E 


L 


L 




I 


A 


N 


S 


R 






















H 


L 


T 




7 


7 


B 
















H 


A 


L 


T 




T 


H 


E 




C 





M 


P 


U 


T 


E 


R 
















































J 


M 


P 




S 


T 


A 


R 


T 


+ 


1 








T 


R 


A 


N 


S 


F 


E 


R 




C 





N 


T 


R 





L 




T 







s 


T 


A 


R 


T 


f 


1 




























E 


N 


D 




S 


T 


A 


R 


T 












E 


N 










F 




P 


R 





G 


R 


A 


M 


t 


C 





N 


T 


R 





L 




T 







E 


N 


T 




P 


Ti 
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ASSEMBLER PROGRAM OPERATIONS 



PASS1 




SYMBOLIC SOURCE 
TAPE(ASCIL) 



HP COMPUTER 



INPUT/OUTPUT 

DRIVER PROGRAMS 



ASSEMBLER 
PROGRAM 



SYMBOL TABLE 
LISTING 



PASSi OPERATIONS 
CREATE A "SYMBOL 

TABLE" IN THE AVAIL- 
ABLE MEMORY AREA. 



PASS 2 



SYMBOLIC SOURCE 
TAPE(ASCir) 




HP COMPUTER 



INPUT/OUTPUT 
DRIVER PROGRAMS 



ASSEMBLER 
PROGRAM 



ASSEMBLY 
LISTING 




OBJECT TAPE 
(BINARY) 

note: assembler PRODUCED OUTPUT IS OPTIONAL. 



PASS 2 OPERATIONS 



RELATE THE SOURCE 
DATA TO THE SYMBOL 
TABLE, AND PRODUCE 
THE BINARY OBJECT 
TAPE AND THE AS- 
SEMBLY LISTING. 
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ASSEMBLER PROCESSING 

PASS 1 



PROGRAM LOCATION COUNTER = 


PLC 


LABEL 


OP CODE 


OPERAND 








ASMB,R 


, B.L 




NAM SETS P.L.C. TO 









NAM 


SAMPL 


ASSEMBLER SYMBOL TABLE>> 







E NT 


START 


"k" is assigned THE VALUE 





K 


DE C 


9279 


"J" II II 


A 




J 


DEC 


i 5726 


"LANSR" H H 


2 


2 


I ANSR 


OCT 





"START" II II 


3 


3 


START 


NOP 








4 




LDA 


J 






5 




ADA 


K 






6 




STA 


lANSR 






7 




HLT 


77B 






10 




JMP 


START+i 










END 


START 



note; only STATEMENTS WITH LABELS CREATE SYMBOL TABLE ENTRIES. 
THE SYMBOL VALUE IS ASSIGNED BY THE PROGRAM LOCATION COUNTER. 
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ASSEMBLER PROCESSING 



PASS 2 



LOCATIONS 


CONTENTSs 


LABEL 


OP CODE 


OPERAND 


00000 






NAM 
ENT 


SAMPL 
START 


00000 


022077 


1 K 


DEC 


9279 


00001 


036556 


1 r-J 


DEC 


15726 


00002 


000000 


1 1 lANSR 


OCT 





00003 


000000 


1 1 START 


NOP 




00004 
00005 


062001R 
042000R 


1 L- 
1 


LDA 
ADA 


J 
K 


00006 


072002R 




STA 


I ANSR 


00007 


1 02077 




HLT 


77B 


0001 


026004R 




JMP 
END 


START+1 
START 



note: memory REFERENCE INSTRUCTIONS SEARCH THE SYMBOL TABLE TO 
FIND THE PROPER OPERAND VALUE. 

MNEMONIC CODES ARE CONVERTED TO THEIR BINARY EQUIVALENT. 
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ASSEMBLY LISTING 






0001 


ASMB,R,B,L,T 


K R 000000 


J R 000001 




lANSR R 0000(92 




START R 000003 




m NO ERRORS^ 




PAGE 0002 




0001 


ASMB,R,B,L,T 


0002)(THIS IS A SAMPLE ASSEMBLY LANGUAGE PROGRAM 


0003)eASTERISK IN COL 


1 INDICATES COMMENT STATEMENT 


0004XPROGRAM TO COMPUTE IANSR=J+K . WHERE J =1 5726, K= 9279 


0005 )(' 


REMARKS FIELD 


0006 00000 


NAM SAMPL PROGRAM NAME IS SAMPL 


0007 


ENT START THIS DEFINES THE "ENTRY POINT" 


0008 00000 022077 


K DEC 9279 K IS DEFINED AS A DEC CONSTANT 


0009 00001 036556 


J DEC 15726 J IS DEFINED AS A DEC CONSTANT 


0010 00002 000000 


lANSR OCT RESERVES A MEMORY CELL FOR lANSR 


0011 00003 000000 


START NOP THIS IS THE ENTRY POINT 


0012 00004 062001 R 


LDA J LOAD J INTO REGISTER "a" 


0013 00005 042000R 


ADA K ADD CONTENTS OF K TO REG. "a" 


0014 00006 072002 R 


STA lANSR STORE J+K TO MEMORY CELL lANSR 


0015 00007 102077 


HLT 77B HALT THE COMPUTER 


0016 00010 026004 R 


J MP START+1 TRANSFER CONTROL TO START+1 


0017 


END START END OF PROGRAM, CONTROL TO ENT PT 


^NO ERRORS-N- 
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A THROUGH Z 

THROUGH 9 

• PERIOD 

^ ASTERISK 

+ PLUS 

- MINUS 

, COMMA 

PARENTHESES 
SPACE 



ALL CHARACTERS ARE ASCE CODE 



THE ASSEMBLER CHARACTER SET 
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LABEL 



OP CODE OPERAND REMARKS 



ASMB,R3,L,T 



BEGIN 



NUM 

COUNT 

60 



NAM 
NOP 
LDA 
JMP 
OCT 

OCT 
PROGRAM 



TESTi 

COUNT 

GO 

H2 



CONTINUATION 



END 



BEGIN 



THE CONTROL STATEMENT MUST BEGIN IN COLUMNS, AND 
IT MUST BE THE FIRST PHYSICAL STATEMENT OF A 
SOURCE PROGRAM. 

ASMB IDENTIFIES ASSEMBLY INPUT 

A/R ABSOLUTE OR RELOCATABLE PROGRAM, 

B BINARY OBJECT TAPE REQUESTED 

L ASSEMBLY LISTING REQUESTED 

T LISTING OF SYMBOL TABLE REQUESTED 

END MUST BE THE LAST PHYSICAL STATEMENT OF A PROGRAM 



THE CONTROL STATEMENTS 
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LABEL FIELD 



Label 
1 5 



Operation 
10 



Operand 
15 



20 



25 



A 


S 


M 


B 


9 


R 


9 


B 


9 


1 

L 


9 


T 




































/ 














Kt 

N 


A 

A 


M 




P 


R 





6 


A 

A 






























i 














c 
o 


T 
1 


A 
M 






\j 


1 1 
u 


M 


T 
1 












































J 


M 


P 




F 


I 


N 


I 


s 
































N 


U 


M 











C 


T 






2 


5 




































C 





U 


N 


T 







C 


T 





































































































































































F 


I 


N 


I 


S 




H 


L 


T 
























































F- 


M 


n 













































10 



0=ZERO 0=ALPHAO 



15 

I0R1= ONE 
2= TWO 



20 



25 



30 



ONE TO FIVE 
CHARACTERS, THE 
FIRST OF WHICH 
MUST BE ALPHA- 
BETIC OR THE 
PERIOD. 

OPERATION FIELD 

ALWAYS A THREE 
LETTER MNEMONIC 
CODE. COMMA IN 
COL, 10 EXTENDS 
OPERATION FIELD 
FOR COMBINABLE 
INSTRUCTIONS. 

OPERAND FIELD 

ALPHANUMERIC 
CHARACTERS, MAY 
EXTEND TO COL 
52. 



1=ALPHA I LINE TERMINATED BY RETURN/LINE FEED (R/LF) 
2=ALPHA ? LINE IS DELETED BYRUBOUT BEFORE R/LF 



USING THE ASSEMBLER CODING SHEET 
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LABEL 


OP CODE 


OPERAND 




1 


2 


3 


4 


5 








A 














VALID 


• 


A 


B 


c 


D 






LABELS 


• 


A 


2 


3 


4 








A 


• 


i 


2 


3 








1 


• 


A 


B 






FIRST CHARACTIR NUMERIC 




A 


B 


C 


1 


2 


3 


6 CHARS., TRUNCATED TO ABC 12 


INVALID 














LABELS 


A 


B 




C 






ASTERISK ILLEGAL 






A 


B 


C 






NO LABEL, FIRST BLANK 
















TERMINATES LABEL FIELD. 






EXAMPLES Ol 


F LABELS 
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SPECIAL USE OF THE ASTERISK 
IN THE LABEL FIELD 



Asterisk in column 1 identifies a comment statement. 

• Positions 2 -80 are available for comments. 

•Comments appear in the assembly listing exactly as they 
appear in the source program. 

^Comments are not processed by the assembler and use no 
storage. 

note: positions l - 68 ONLY WILL BE PRINTED ON 
THE 2752A TELEPRINTER. 



EXAMPLE- 



LABEL 



OP CODE OPERAND 



COLUMN 



^^T 



IS AN EXAMPLE OF WRITING A COMMENT 
EMENT 
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Label Operation Operand Remarks 

1 5 TO 15 20 25 30 35 40 



A 


S 


M 


B 


} 


R 


1 


L 
















































































N 


A 


M 




S 


A 


M 


B 












T 


H 


E 




R 


E 


M 


A 


R 


K 


S 




F 


I 


E 


L 


D 




I 


S 


















C 


L 


A 






















S 


E 


P 


A 


R 


A 


T 


E 


D 




F 


R 





M 




T 


H 


E 






















C 


M 


A 

























P 


E 


R 


A 


N 


D 




F 


I 


E 


L 


D 




B 


Y 




A 


T 






-1 














I 


N 


A 






















L 


E 


A 


S 


T 







N 


E 




S 


P 


A 


C 


E 





















































































































































































THE REMARKS FIELD EXTENDS FROM THE OPERAND FIELD TO THE 
80th CHARACTER. THE ENTIRE STATEMENT LENGTH SHOULD NOT 
EXCEED 52 CHARACTERS. REMARKS SHOULD BE OMITTED IF THE 
FOLLOWING STATEMENTS ARE USED WITHOUT OPERANDS: NAM, 
END, HLT, SOC, SOS. 

REMARKS FIELD 
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PROGRAM 

LUOAI ION 
COUNTER 


LABEL 


OP CODE 


OPERAND 


REMARKS 


2001 




LDA 


COUNT 




2002 




STA 


COUNT-1 




2003 




JMP 






2004 




OCT 







2005 


COUNT 


DEC 


-25 




2006 




HLT 






IN THIS EXAMPLE THE -Jt HAS A VALUE OF 


2003 THEREFORE 


+ 3« 2006. 


^EQUALS THE VALUE OF THE P.L.C. WHEN IT IS 


ENCOUNTERED 


IN THE ASSEMBLY. 







RELATIVE ADDRESSING 
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A oTIVIdUL UoLU in I nt UrtKAnlU rILLU IVIUol bt UtrllMtU 

ELSEWHERE IN THE PROGRAM IN ONE OF THE FOLLOWING 
WAYS: 




LABEL 


OP CODE 

LDA 

1 


OPERAND 

ALPHA 


AS A LABEL 
IN A MACHINE 
OPERATION 


ALPHA 


1 
1 

NOP 




OR, AS A LABEL 
OF A PSEUDO 


ALPHA 


DEC 


100 


OR, IN THE 
OPERAND FIELD 
OF A COM OR EXT 




COM 
EXT 


ALPHA (10) 
ALPHA 


OR, AS A LABEL 
OF AN ARITHMETIC 
PSEUDO. 


ALPHA 


MPY 




SYMBOL DEFINITION 
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SIGN 
MSB 



LSB 



1 



BEFORE 



A OR B REGISTER 



INSTRUCTION 



[ 



CLA/CLB 



] 



CLEAR THE INDICATED REGISTER. ALL 16 BITS ARE SET 
TO 0. OVFLO, 'E' ARE NOT AFFECTED. 



SIGN 
MSB 



LSB 



AFTER 



A OR B REGISTER 



CLEAR ACCUMULATOR 
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SIGN 
MSB 




























LSB 






1 


1 


1 


1 














1 


1 


1 


1 














BEFORE 














A 
M 




B REGISTER 
















IN^TRIirTION 




































cma/cmbJ 


COMPLEMENT 


THE 


CONTENTS 


OF 


THE INDICATED REGISTER. 






THIS IS A 


I's 


COMPLEMENT. 


ALL 0's BECOME Vs. 


ALL I's 




BECOME 0's. 


OVFLO, 'E' ARE NOT 


AFFECTED. 












SIGN 
MSB 




























LSB 


















1 


1 


1 


1 














1 


1 


1 


1 


AFTER 














/ 


V OR B 


REGISTER 














COMPLEMENT ACCUMULATOR 
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SIGN 
MSB 



LS8 



1 





1 





1 





1 





1 





1 





1 





1 






BEFORE 



A OR B REGISTER 



INSTRUCTION 



[ 



CCA/CCB 



] 



CLfAR AND THIN COMPLEMENT THE INDICATED REGISTER. 
ALL 16 BITS ARE SET TO 1. OVFLO, *E' ARE NOT AfFECTfD. 



SIGN 
MSB 



LSB 



1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 



AFTER 



A OR B REGISTER 



CLEAR, 

COMPLEMENT THE ACCUMULATOR 
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OVFLO 



SIGN 
MSB 



LSB 



A OR B REGISTER 



BEFORE 



INSTRUCTION 



[ 



INA/INB 



] 



X = 1 OR 



INCREMENT THE CONTENTS OF THE INDICATED REGISTER 
BY 1. OVERFLOW CAN BE SET AS A RESULT OF THIS 
OPERATION. IF A CARRY IS GENERATED FROM BIT 15, 
THE E REGISTER WILL BE SET TO 1 ALSO. 



B □ 



OVFLO 



SIGN 
MSB 



LSB 



AFTER 



A OR B REGISTER 



INCREMENT THE ACCUMULATOR 
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PROBL EM: compute Z = X-Y 

LABEL OP CODf OPERAND 



REGISTER 















A 


1 ^ 


1 


7 


7 


7 


6 


7 


1 


7 


7 


7 


7 





1 











2 





a 1 











2 






Y 
X 
Z 

STOP 



• 

LDA 
CMA 
INA 
-ADA 
STA 
JMP 
OCT 
OCT 
OCT 
CLA 



X 

z 

STOP 

^0 

30 

0(20) 



REMARKS 



LOAD Y 

^'S COMPLEMENT 
2'S COMPLEMENT 

SUBTRACT 
Z = X-Y 

JUMP AROUND 

CONSTANTS 



SUBTRACT EXAMPLE 
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INSTRUCTION 



[c„] 



D"EI 



BEFORI 



CLEAR THE CONTENTS OF E, E IS RESET TO 0, THE 
CONTENTS OF THE OTHER REGISTERS ARE NOT ALTERED BY 
ANY 'E' REGISTER INSTRUCTIONS. 



□ □ 



AFTER 



INSTRUCTION 



^CME J 



[7|or|T| 



I OR I 1 I BEFORE 
COMPLEMENT E,0 BECOMES 1,1 BECOMES 
E I 1 I I I AFTER 



INSTRUCTION 

[ec] 



[7|or|T| 



E| I OR I 1 I BEFORE 
CLEAR AND THEN COMPLEMENT E 

El 1 I 111 AFTER 



□ □ 

'E' REGISTER INSTRUCTIONS 
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THE ABILITY TO MAKE LIMITED DECISIONS BASED ON PRE-DEFINED 
CONDITIONS IS VERY IMPORTANT IN COMPUTER PROGRAMS. 



FOR EXAMPLE 




IN ORDER TO IMPLEMENT THE DECISION 
SYMBOL ONE OR MORE MACHINE INSTRUC- 
TIONS ARE REQUIRED. 

THE INSTRUCTION CODE TO IMPLEMENT 
THIS DECISION WOULD BE: 



SZA (SKIP IF RE6."A" IS ZERO) 



LABEL OPCODE OPERAND REMARKS 



SZA IS REG A«0? 

JMP N ZERO NO 
JMP ZERO YES 



NOTE: ALL HP COMPUTER "SKIP-TYPE 

INSTRUCTIONS WORK IN THIS 
MANNER. 



DECISION MAKING INSTRUCTIONS 
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SIGN 
MSB 




























LSB 






















































SKIP 

CONDITION 












A OR B REGISTER 
















INSTRUCTION 




































r SZA/SZBI 


THIS INSTRUCTION TESTS THE CONTENTS OF THE 


INDICATED 


L J REGISTER. IF THE TEST CONDITION IS PRESENT (16 0' S) THE 


NEXT SEQUENTIAL INSTRUCTION IS 


SKIPPED. 


ANY CONDITION 


OF 


THE REGISTER 


OTHER 


THAN 


16 


0'S 


CAUSES THE NEXT 


SEQUENTIAL INSTRUCTION TO iE EXECUTED. 


THE 


CONTENTS 


OF 


THE A, 




E, OR 


OVFLO 


REGISTERS 


ARE NOT AFFECTED BY 


THIS INSTRUCTION. 
























SIGN 
MSB 




























LSB 




1 1 





1 





1 





1 





1 





1 





1 





1 





NO SKIP 
CONDITION 












A OR B REGISTER 






















SKIP ON 


ZE 


iR 


o 
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SIGN 
MSB 


























LSB 









X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


SKIP 

CONDITION 














A OR B 


REGISTER 
















INSTRUCTION 




































1 QQA /CCP i 
1 OOM/OOD 1 


THIS INSTRUCTION TESTS THE CONTENTS OF BIT POSITION 


15. 


IF 


BIT 


15: 


-JK (POSITIVE) THE 


NEXT SEQUENTIAL 






X * 1 OR 


INSTRUCTION 


IS SKIPPED. 


IF BIT POSITION 15=1 (NEGATIVE) 




THE NEXT 


SEQUENTIAL INSTRUCTION IS EXECUTED. THE 






CONTENTS 


OF A,l 


B/E, 


OR 


OVFLO 


ARE NOT 


AFFECTED BY 






THIS 1 


NSTRUCTION. 


























SIGN 
MSB 




























LSB 






1 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


NO SKIP 
CONDITION 














A OR 


8 REGISTER 




















SKIP SIGN 


POSITIVE 
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EXAMPLE 



'read a 16 BIT VALUE FROM THE CONSOLE 
SWITCH REGISTER. IF THE VALUE IS POSI- 
TIVE TAKE THE 2's COMPLEMENT. IF THE 
VALUE IS NEGATIVE, CONTINUE THE PROGRAM. 



solution: 



Label Operation Operand Remarks 

1 5 6 7 10 15 20 25 30 













L 


I 


A 




1 












R 


E 


A 


D 




S 


W 


I 


T 


C 


H 




R 


E 


G 


I 


S 


T 


E 


R 












S 


S 


A 
















I 


S 




V 


A 


L 


U 


E 




P 





3 


I 


T 


I 


V 


E 


9 
















J 


M 


P 




C 





N 


T 






N 



















































C 


M 


A 
















Y 


E 


S 


1 


T 


A 


K 


E 




C 





M 


P 


L 


E 


M 


E 


N 


T 


1 












I 


N 


A 
















A 


D 


D 







N 


E 




























c 





N 


T 
























C 





N 


T 


I 


N 


U 


E 




P 


R 





6 


R 


A 


M 
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SIGN 
MSB 


























LSB 






X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 





SKIP 

CONDITION 














A 


OR 


B REGISTER 
















INSTRUCTION 




































^ SLA/SLB J 


THIS 


INSTRUCTION TESTS THE CONTENTS OF BIT POSITION 0. 




IF 


THIS BIT IS THE NEXT 


SEQUENTIAL INSTRUCTION IS 






SKIPPED. 


IF 


BIT 


POSITION 


CONTAINS A 1 THE 


NEXT 






SEQUENTIAL 


INSTRUCTION IS EXECUTED. THE 


CONTENTS 


OF 




A, 




E, OR OVFLO 


ARE 


NOT AFFECTED BY 


THIS INSTRUCTION. 




SIGN 
MSB 




























LSB 






X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


1 


NO SKIP 
CONDITION 














A OR B 


REGISTER 


















SKIP ON 




z 


EF 




1 
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INSTRUCTION 




[s.z] 


SKIP THE NEXT SEQUENTIAL INSTRUCTION IF 




THE *E' REGISTER IS JBT 




SKIP NO SKIP 




E CONDITION E CONDITION 




SEZ INSTRUCTION 
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INSTRUCTION 




iRSsl 
L J 


REVERSE THE SKIP 'SENSE' FOR ALL SKIP 




INSTRUCTIONS. AN RSS USED WITH A SKIP 




INSTRUCTION COMPLEMENTS THE SKIP CONDITION. 


examples: 


RSS = UNCONDITIONAL SKIP 




SEZ , RSS - SKIP IF E ;c 




SZA, k5S — SKIP IF A ^ iV 




SLi , RSS = SKIP IF LSB OF B ^ JET 




SSA , RSS = SKIP IF MSB Of B 




SSA , SLA , RSS = SKIP IF MSB AND LSB OF A = 1 




RSS INSTRUCTION 
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1. INSTRUCTIONS ARE COMBINED FROM LEFT TO RIGHT IN THE ORDER SHOWN 

2. IF TWO OR MORE SKIP CONDITIONS ARE INCLUDED, A SKIP OCCURS 

IF EITHER OR BOTH CONDITIONS ARE PRESENT: EXCEPTION . SSA/B, SLA/B, 
RSS; BOTH CONDITIONS MUST BE MET. 



COMBINING GUIDE 
ALTER - SKIP INSTRUCTIONS 
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EXAMPLE 



PROBLEM : 

TEST A VALUE IN REGISTER "B". 
IF ODD AND NEGATIVE JMP XYZ 
IF EVEN OR POSITIVE JMP ABC 



SOLUTION: 



Label Operation Operand Remarks 
1 5 10 15 20 25 30 















s 


s 


B 


1 


S 


L 


B 


9 


R 


S 


S 
















































J 


M 


P 




A 


B 


C 
























































J 


M 


P 




X 


Y 


z 
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SIGN 
MSB 



LSB 



Losr 

INSTRUCTION 



[ 



ALS/BLS 



] 



1 



BEFORE 



A OR B REGISTER 



SHIFT THi INDICATED REGISTER LEFT 1 BIT ARITHMETICALLY, 
THAT IS, BITS JOT THRU 14 SHIFT LEFT. SIGN, BIT 15, IS NOT 
AFFECTED. BITS SHIFTED OUT OF BIT POSITION 14 ARE LOST. 
OVFLO, 'E' REGISTER ARE NOT AFFECTED. 



Mse 




LSB 


1 


1 





1 





1 





1 





1 





1 





1 









AFTER 



A OR B REGISTER 



ACCUMULATOR LEFT SHIFT 
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SIGN 
MSB 




























LSB 






1 


1 


1 











1 


1 


1 











1 


1 


1 





BEFORE 














A OR B 


REGISTER 










1 — ► LOST 


INSTRUCTION 




































ARS/BRS j 


SHIFT THE INDICATED 


REGISTER RIGHT 1 


BIT 


ARITHMETICALLY, 


THAT IS, BITS 


14 THRU jer SHIFT RIGHT. 


SIGN, BIT 15, IS NOT 




AFFECTED. 


BITS SHIFTED OUT 


OF 


BIT 





ARE 


LOST. 


A 


COPY 




OF BIT 15 (SIGN) IS SHIFTED 


INTO BIT 14. 


OVFLO, 


'E' 


REGISTER 




ARE 


NOT AFFECTED. 


























SIGN 
MSB 


























LSB 






1 


1 


1 


1 











1 


1 


1 











1 


1 


1 


AFTER 














A OR 


B REGISTER 














ACCUMULATOR RIGHT SHIFT 
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SIGN 



MSB 




LSB 


1 


1 


1 











1 


1 


1 











1 


1 


1 

















A OR B 


REGISTER 















BEFORE 



INSTRUCTION 



[ 



RAL/RBL 



] 



O 



ROTATE THE INDICATED REGISTER LEFT 1 BIT. BIT 15 IS 
ROTATED AROUND TO BIT POSITION 0. NO BITS 
ARE LOST. OVFLO, 'E' NOT AFFECTED. 



SIGN 
MSB 



LSB 



1 



AFTER 



A OR B REGISTER 



ROTATE ACCUMULATOR LEFT 
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SIGN 
MSB 



LSB 



1 


i 


1 











1 


i 


1 











1 


1 


1 





1 


I 










i 


A OR B 


REGISTER 















BEFORE 



IN STRUCTION 
RAR/RBR j 



[ 




ROTATE THE INDICATED REGISTER RIGHT 1 BIT. 
BIT IS ROTATED AROUND TO BIT POSITION 15. 
NO BITS ARE LOST. OVFLO, 'E' NOT AFFECTED. 



SIGN 
MSB 



A OR B REGISTER 



LSB 



AFTER 



ROTATE ACCUMULATOR RIGHT 
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EXAMPLE 



PROBLEM: 

TEST BIT 15 OF THE A" REGISTER. 
IF BIT 15 =1 . JMP TO LOCATION BUSY 
IF BIT 15 =0 , TEST BIT 14 
IF BIT 14 =1 , JMP TO LOCATION ERROR 
IF BIT 14=0, (PROGRAM CONTINUATION) 



SOLUTION: 



Label Operation Operand Remarks 
1 5 10 15 20 25 30 














S 


S 


A 






















B 


I 


T 




1 


5 




1 




























J 


M 


P 




B 


U 


S 


Y 












Y 


E 


S 






































R 


A 


L 






















N 











































S 


S 


A 






















B 


I 


T 




1 


4 




1 




























J 


M 


P 




E 


R 


R 





R 










Y 


E 


S 






































P 


R 





6 


R 


A 


M 




C 





N 


T 


I 


N 


U 


A 


T 


I 





N 
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SIGN 
MSB 



LSB 








1 


1 


1 











1 


1 


1 


1 











1 


1 


1 


E' 


A OR B REGISTER 





BEFORE 



INSTRUCTION 



[ 



ERA/ERB 



] 



ROTATE THE INDICATED REGISTER RIGHT, 1 BIT, WITH THE 
EXTEND REGISTER ('E'). BIT IS ROTATED INTO 'E' AND 
CONTENTS OF 'E' ARE ROTATED INTO BIT POSITION 15. 
NO BITS ARE LOST. OVFLO IS NOT AFFECTED. 



SIGN 
MSB 



LSB 



1 







1 


1 


1 











1 


1 


1 


1 











1 


1 


E 


A OR B REGISTER 





AFTER 



E' RIGHT WITH ACCUMULATOR 
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INSTRUCTION 



[ 



ELA/ELB j 



C 



SIGN 



MSB 




LSB 











1 


1 


1 











1 


1 


1 















BEFORE 



A OR B REGISTER 



ROTATE THE INDICATED REGISTER LEFT, 1 BIT, WITH THE 
EXTEND REGISTER ('E'). BIT 15 IS ROTATED INTO 'E' AND 
CONTENTS OF 'E' ARE ROTATED AROUND TO BIT POSITION 
0. NO BITS ARE LOST. OVFLO IS NOT AFFECTED. 



SIGN 
MSB 



LSB 









1 


1 


1 











1 


1 


1 














1 



AFTER 



A OR B REGISTER 



'E' LEFT WITH ACCUMULATOR 
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SIGN 
MSB 



LSB 



1 


1 


1 











1 


1 


1 








1 


1 


1 


1 

















A 


OR 


B REGISTER 

















BEFORE 



INSTRUCTION 



[ 



ALF/BLF 





] 



ROTATE THE INDICATED REGISTER LEFT 4 PLACES. NO BITS 
ARE LOST. BIT 15, 14, 13, 12 ARE ROTATED AROUND TO 

BIT POSITIONS 3, 2, 1, RESPECTIVELY. OVFLO, E' ARE 
NOT AFFECTED. 



SIGN 
IVISB 



LSB 









1 


1 


1 








1 


1 


1 


1 





1 


1 


1 

















A OR 


B REGISTER 

















AFTER 



ACCUMULATOR LEFT ROTATE FOUR 
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ALS 




ALS 






ARS 




ARS 






RAL 




RAL 






RAR 


\> , [cie] , [sla] , < 


RAR 




< 


ALR 
ALF 
ERA 

ELA 

\ ) 


ALR 
ALF 
ERA 
ELA 

V y 


>- 




BLS 




/ \ 

BLS 






BRS 




BRS 






RBL 




RBL 




< 


RBR 
BLR 
BLF 
ERB 
ELB 


. , [cle],[slb] , < 


RBR 
BLR 
BLF 
ERB 
ELB 


>- 




COMBINING GUIDE 




SHIFT-ROTATE INSTRUCTIONS 
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EXAMPLE 

PROBLEM: 

CLEAR BIT 0. TEST BIT 1 AND JUMP TO LOCATION 
"SAM" IF BIT 1 IS A ONE. RESTORE ALL BITS TO THEIR 
ORIGINAL POSITIONS IN THE REGISTER. 



SOLUTION: 



Label Operation Operand 
15 10 15 



Remarks 
20 25 



30 















E 


R 


A 


> 


C 


L 


E 


1 


S 


L 


A 


1 


E 


L 


A 








































J 


M 


P 




S 


A 


M 
























































P 


R 





6 


R 


A 


M 




C 





N 


T 


1 


N 


U 


A 


T 


1 





N 
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II A II 

A 

REGISTER 


MEMORY 
LOCATION 


AND 


ICR 


XOR 




















1 





i 




1 








1 


1 


1 




-1 








LOGICAL TRUTH TABLE 
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LABEL 


OP CODE 


OPERAND 




AND 

• 


MASK 


MASK 


• 

OCT 


77 



MEMORY 



T 1 1 1 1 1 1 1 1 1 1 1 1 1 

00000000001 11 1 1 1 

I.I.I. 1,1.1. 1,1, I—, I , I 



IaI 



A REGISTER 



1 1 i 
I ' ■ I ■ ■ 



T — — T 

i i 1 

I I 



T 



T 



i 1 1 -I 
■ I ■ ' 



BEFORE 



MEMORY 



— I 1 1 — I — I — I 1 — I 1 — I 1 — I 1 — I — I — 

0000000001 11111 



I aI 



A REGISTER 



III 

I ' I ' I ' I 



J , L 



T 



T 



I ■ I 



I . I 



T 1 r 



000000 00001 1 1 01 

_| , , ^ u_ f—^ L__, ^ i \ ^ ^ 



AFTER 



THE AND INSTRUCTION 
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MEMORY 






















1 


A 










































EQUAL, 




































■ NO 
SKIP 




1 




1 


1 




















































AOR B REGISTER 
















INSTRUCTION 
[^CPA/B yJ 


COMPARE THE CONTENTS OF THE SPECIFIED REGISTER 
AGAINST THE CONTENTS OF MEMORY LOCATION Y. IF 
ALL A6 BITS COMPARE (EQUAL) THE NEXT SEQUENTIAL 
INSTRUCTION IS EXECUTED. IF THE COMPARE FAILS, 
( UNEQUAL) THE NEXT SEQUENTIAL INSTRUCTION IS 
SKIPPED. 

MEMORY 






1 






i 








































UNEQUAL, 
SKIP 






































i 




i 

























































A ORB REGISTER 
















THE COMPARE INSTRUCTION 
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A COMPARE INSTRUCTION 
EXAMPLE 

THE CONTENTS OF REGISTER "A" ARE UNKNOWN. DEVISE 
A PROGRAM SEGMENT THAT WILL TEST THE STATUS OF BITS 
3 THROUGH 6. IF THIS FIELD CONTAINS THE OCTAL VALUE 
i2, TRANSFER TO A LABEL CALLED TRUE. IF THIS FIELD 
CONTAINS ANY OTHER VALUE THE PROGRAM SHOULD CON- 



TINUE. REGISTER "A" CONTENTS 



15 


14 


13 


12 


11 


10 


9 




7 


6 


5 


4 


9 


2 


1 





X 


X 


X 


X 


X 


X 


X 


X 


X 




? 


? 


? 


X 


X 


X 



1 5 6 7 10 15 20 25 30 35 40 45 50 














A 


N 


D 




M 


1 


7 

















I 


S 





L 


A 


T 


E 




B 


1 


T 


S 




3 




T 


H 


R 





U 


G 


H 


6 


































C 


P 


A 




M 


1 


2 

















D 





E 


S 


II 


A 


11 


C 





M 


P 


A 


R 


E 




T 







T 


E 


S 


T 




V 


A 


L 


U 


E 


? 






















J 


M 


P 




T 


R 


U 


E 














Y 


E 


S 


JL 


J 


U 


M 


P 




T 







T 


R 


U 


E 




R 





U 


T 


1 


N 


E 


















\ 














J 


M 


P 




F 


A 


L 


S 


E 












N 







c 





N 


T 


I 


N 


U 


E 




P 


R 





6 


R 


A 


M 






























M 


1 


7 












C 


T 




1 


7 






















C 


T 


A 


L 




M 


A 


S 


K 
















































M 


1 


2 












C 


T 




1 


2 






















C 


T 


A 


L 




T 


E 


S 


T 




V 


A 


L 


U 


E 




































F 


A 


L 


S 


E 
































































































f 





















































































































7-48 



Assembler pseudo instructions 



LESSON 

ASSEMBLER PSEUDO INSTRUCTIONS 



Objectives 

Introduction to Input/Output 

Input/Output Structure 

Select Codes and I nterrupt Addresses 

Select Code Assignments 

A Typical I/O Interface Card 

Data Transfers 

The Halt Instruction - HLT 

I/O Data Transfer Example 

The Increment Skip-Zero Instruction — ISZ 

A Program Loop Example 

The Block Starting Symbol — BSS Pseudo Instruction 



8-1 


Indirect Addressing 




8-13 


8-2 


The DEF Pseudo Instruction 




8-14 


8-3 


Pseudo Instructions ENT and EXT 




8-15 


8-4 


Object Program Linkage 




8-16 


8-5 


The Jump Subroutine Instruction — 


JSB 


8-17 


o-b 


A JSd example 




O 1 o 


8-7 


The EQU Pseudo Instruction 




8-19 


8-8 


The Common Pseudo Instruction - 


COM 


8-20 


8-9 


Using the COM Pseudo Instruction 




8-21 


8-10 


Common Storage 




8-22 


8-11 


ASCII Character Codes 




8-23 


8-12 


The ASC Pseudo Instruction 
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LESSON IZm OBJECTIVES 



THE OBJECTIVES OF LESSON IDH ARE: 

1 - INTRODUCE THE STUDENT TO BASIC I/O OPERATIONS. 

2 - PROVIDE THE STUDENT WITH MORE ASSEMBLY 

LANGUAGE PROGRAMMING 'TOOLS' IN THE FORM OF 
ASSEMBLY DIRECTING PSEUDO INSTRUCTIONS. 

3 - INTRODUCE THE TECHNIQUES OF LOOPING AND 

INDIRECT ADDRESSING. 
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15- 






-12 


11 6 


5 


1 











INSTRUCTION 


SELECT CODE 



I/O INSTRUCTION FORMAT 



INPUT/OUTPUT DEVICE - 



I/O INTERFACE CARD — 



I/O CHANNEL 

SELECT CODE 
INTERRUPT LOCATION 

INTERRUPT 



A PHYSICAL DEVICE CAPABLE OF TRANSMITTING 
AND/OR RECEIVING COMPUTER DATA. 
A COMPUTER ELECTRONICS CARD THAT PROVIDES THE 
PHYSICAL AND ELECTRICAL CONNECTION BETWEEN 
THE DEVICE AND THE COMPUTER. 

THE RECEPTACLE IN THE L/0 CARD CAGE THAT HOLDS 

THE I/O INTERFACE CARD. 

IDENTIFIES A PARTICULAR I/O CHANNEL. 

A MEMORY LOCATION IN THE RANGE 4-77q, EACH SELECT 

CODE IDENTIFIES AN INTERRUPT LOCATION. 

A PHASE OF COMPUTER OPERATION. 



INTRODUCTION TO INPUT/OUTPUT 
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INPUT/ OUTPUT STRUCTURE 

THE STRUCTURE OF THE HEWLETT-PACKARD COMPUTER PROVIDES 

2 DISTINCT METHODS OF INPUT -OUTPUT DATA TRANSFER OPERATIONS. 

1 - NON-INTERRUPT METHOD 

The user commands the I/O device to cycle and then 
programs a loop that "waits" for the device cycle to 
complete. 

ADVANTAGE - easy to use 
DISADVANTAGE- inefficient 

2- INTERRUPT METHOD 

The user commands the I/O device to cycle and continues 
execution of the'main" program. The completion of the device 
cycle will interru pt the main program and transfer control to 
a subroutine that will handle the actual data transfer. 

ADVANTAGE- efficient 

DISADVANTAGE - requires more programming effort. 
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SELECT CODES AND INTERRUPT ADDRESSES 
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CODE 


IMTPPPI IPT 
1 1 N 1 c n n u r 1 

LOCATION 


FUNCTIONAL ASSIGNMENTS 





NONE 


ENABLE/DISABLE I/O AND INT. SYST. 


i 


NONE 


SWITCH REGISTER 


2 


NONE 


DMA cm 


3 


NONE 


DMA OH 2 


4 


4 - 


POWER FAIL 


5 


5 - 


MEMORY PROTECT 


.6 


6 - 


DMA CHI 


7 


7 - 


DMA CH2 


10 

• 
• 


10 - 

• 
• 
• 


I/O DEVICE HIGHEST PRIORITY 

• • 


• 

77 


• 

77 


• • 

• • 

r/0 DEVICE LOWEST PRIORITY 



SELECT CODE ASSIGNMENTS 
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COMPUTER 
DATA 

FROM (TO) 



A TYPICAL I/O INTERFACE CARD 



INTERRUPT 

REQUEST 

SIGNAL 



INTERRUPT 
ENABLE 
SIGNAL ¥: 



STF(O) ENABLES 
CLF(O) INHIBITS 




DATA 
REGISTER 





















bit 


7 


6 


5 


4 


3 


2 


1 








STC- 



CONTROL (1) 



FLIP-FLOP (0) 



CLF- 



FLAG 



(1) 



FLIP-FLOP (0) 



I/O DEVICE 



DATA 

TO (FROM) 



FLAG 

SIGNAL (FROM) 

CONTROL 
SIGNAL (TO) 



mnemonic instruction 

STC (sc) SET CONTROL FLIP-FLOP 

CLC (sc) CLEAR CONTROL 

STF (sc) SET FLAG ii n 

CLF (sc) CLEAR FLAG 



function 

START DEVICE 
CLEAR DEVICE 
SET FLAG, "ready" 
CLEAR FLAG, "BUSY" 
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DATA TRANSFERS (8 BIT DEVICE) 












15 


14 


13 


12 


11 


10 


9 


8 


7 


6 


5 


4 


3 


2 


1 












1 


1 


A 





i 





i 


1 









A 









BEFORE 




















t 


+ 






t 


+ 


+ 


t 


8 BIT DEVICE 
BUFFER 


INSTRUCTION 
rLIA/B(sc)1 

































A 


A 






A OR 


B REGISTER 
















































i 


i 





A 








A 


A 


AFTER 
























4 






+ 


t 


+ 


8 BIT DEVICE 
bUrr tn 






















A 













A 




inru i UA 1 A 
































































































i 





A 







A 


A 


A 


BEFORE 






















+ 


\ 


+ 


1 




1 


+ 


8 BIT DEVICE 


INSTRUCTION 


















X 


X 




X 




X 


X 


X 


[OTA/B(sc)] 






















X 




X 








BUFFER 






A OR 8 REGISTER 














































i 





i 


A 





A 


A 


•i 


AFTER 




















\ 


1 














8 BIT DEVICE 
BUFFER 


OUTPUT DATA 
















1 





1 


i 





i 




A 
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1 lo 



lo 



lo 



I A 



1 I A 



® 



"T" REGISTER 



INSTRUCTION 
^HLT(sc),C J 



THIS INSTRUCTION WILL HALT THE COMPUTER, THE 
INSTRUCTION WILL BE DISPLAYED IN THE "T" REGISTER. 

THE (SO OPTION ALLOWS THE SELECTION OF I/O ADDRESSES 

0-77. THE, C OPTION ALLOWS THE FLAG BIT OF THE 

SELECTED DEVICE TO BE CLEARED. 



Q SHOWS HALT INSTRUCTION DISPLAY} SC=778, NO (C) 
OPTION. 

(2) SHOWS HALT INSTRUCTION DISPLAY; WITH (OOPTION 
TO CLEAR FLAG ON DEVICE 00 (TURN OFF INT. SYST.) 



A I 



I 



1 lo 



I O 







I 



"T" REGISTER 



THE HALT INSTRUCTION 
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LABEL 


OP CODE 


OPERAND 


REMARKS 




CLF 





INHIBIT THE INTERRUPT 




STC 


10B, C 


START READER 


WAIT1 


SFS 


10B 


FLAG - 1 ? 




JMP 


WAIT1 


NO 




LIA 


i0B 


YES, LOAD DATA IN "A" 




ALF, ALF 




POSITION IN HIGH "A" 




STC 


iOB, C 


START READER 


WAIT2 


SFS 


10B 


FLAG = 1 ? 




JMP 


WAIT2 


NO 




MIA 


10B 


YES, MAKE i6 BIT WORD 



I/O DATA TRANSFER EXAMPLE 
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MEMORY 




















1 


1 




1 


1 


i 


i 


1 


1 


1 


1 


1 


1 


1 


1 





BEFORE 




































(NO SKIP CONDITION) 




1 


1 




1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


i 


1 


AFTER 


INSTRUCTION 
1 TC7 Y 




MEMORY 

INCREMENT THE CONTENTS OF MEMORY LOCATION 
Y AND TEST FOR ZERO. IF Y IS EQUAL TO 
ZERO THE NEXT SEQUENTIAL INSTRUCTION IS SKIP- 
PED. IF Y IS NOT EQUAL TO ZERO, THE NEXT SEQUEN- 
TIAL INSTRUCTION IS EXECUTED. 


















MEMORY 




















i 


i 




i 


1 


A 


1 




1 


1 


1 


1 




1 




1 


BEFORE 


































(SKIP CONDITION) 




















































AFTER 
















MEMORY 


















THE 


INCREMENT- SKIP ZERO INSTRUCTION 
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MULTIPLY THE CONTENTS OF REGISTER "b" BY THE CONTENTS OF 
REGISTER a! 

NOTE: Register "a" can be linked to Register "eI* through Register "e!'. 



REGISTER B 




REGISTER A" 



15|i4[13|i2[i1 [10|9 [8 [7 j6 |5 [4 [3 |2 p |0 15 |i4 113 ji2 pi p0|9 |8 |7 [6 j5 |4 |3 |2 j1 [0 



STORE REGISTER 

I 



"b"toloc"m" 



INITIALIZE 
ROTATE COUNTER 



CLEAR 
REGISTER "b" 




ADD CONTENTS 
0F"M"T0RE6'y' 



ROTATE'^' a"B' 
REGISTERS RIGHT! 




LABEL OP CODE OPERAND 


$.T.A,R,T 








M. , 1 1 . 


L, , 1 1 J 




L.D.B 




M.2.0, , , 


1 1 1 1 




S.T.B 




C.N.T.R, . 






C.L.B 




1 1 1 1 .J. 


L.O.O.P. 




C.L.E 




1 1 1 1 1 


1 t 1 f 




S.L.A 




1 1 . 1 ^ 


i 1 1 1 




A.D.B 




M 


1 1 1 1 




E,R,B 




1 1 1 1 j- 


1 1 1 1 




E.R.A 










I.S.Z 




C.N.T.R. , 


1 1 1 1 




J,M.P 




lIoIoIpI I 


■ 1 1 1 




H.L.T 










J.M.P 




S.T.A.R.T. 


M. . . . 




O.C.T 




e> 


M,2,0. , 




O.C.T 




1.7.7.7.6,0 


C.N.T.R. 




O.C.T 




0i 1 . 1 1 



A PROGRAM LOOP EXAMPLE 



REMARKS 

SAVE B 
SET COUNTER 
TO MINUS 208 
CLEAR B 



} 



ADD A TO CNTR, ZERO? 
NO. STAY IN LOOP 
YES, HALT COMPUTER 



MINUS 208 
WORKING COUNTER 
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THE 


B SS 


PSEUDO INSTRUCTION 




/ 




BLOCK 


STARTING SYMBOL 




THIS PSEUDO WILL CAUSE THE ASSEMBLER TO 




ALLOCATE A BLOCK OF MEMORY LOCATIONS TO 




A PROGRAM. THE CONTENTS OF THE MEMORY 




BLOCK 


CAN NOT BE DETERMINED WHEN THE OBJECT 




PROGRAM IS LOADED FOR EXECUTION AND MUST BE 




TAKEN 


INTO CONSIDERATION BY THE PROGRAMMER. 


FOR EXAMPLE: 






LOCATION 


CONTENTS LABEL OPCODE OPERAND REMARKS 




00000 


NAM BLOCK 






ENT START 




00000 


000000 BUFFR BSS 512 SET ASIDE 512 MEMORY 




01000 


000000 START NOP LOCATIONS 




01001 


002400 CLA 




1002 


006400 CLB 

• 
• 
• 
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INDIRECT ADDRESSING 


THE ASSEMBLER PROGRAM WILL SET THE INDIRECT 


ADDRESSING BIT (15) FOR ALL MEMORY REFERENCE 


OPERANDS 


TAGGED WITH THE 


" t" rMTCTPMATHD 
,1 UtoiolMAI UK. 


FOR EXAMPLE: 




LOCATION 


CONTENTS LABEL 


OPCODE OPERAND REMARKS 


• 
• 


002021 ADRES 


• 

OCT 2021 OCTAL CONSTANT 

• 
• 


• 

2 010 


062000 


• 

LDA ADRES HCK UP OCTAL CONSTANT 


2011 

• 
• 


162000 


1 HR AnpPQ T Pirk 1 IP npriMAi phmqtamt 

L.UD MIJr\CO|X rKIV Ur l/CUIIVIML V./UINO 1 MIN 1 
• 
• 


• 

2021 


0777 77 


• 

DEC 32767 DECIMAL CONSTANT 

• 






• 

END 


NOTE: AFTER EXECUTION OF CODING 




REGISTER A = 


002021 




REGISTER "b" = 


077777 
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Tuc nrr nociinr\ tmctdiiattam 

THE DEr PSEUDO 1NS1RUCII0N 


THE DEF PSEUDO DEFINES THE MEMORY ADDRESS OF 


A PROPERLY DEFINED SYMBOL. 


THE ASSEMBLER GENERATES 


A 15 BIT MEMORY ADDRESS IN THE OBJECT PROGRAM 


WHEREVER THE DEF 


APPEARS . 






FOR FXAMPI F' 








LOCATION CONTENTS LABEL 


OPCODE 


OPERAND 


REMARKS 


00000 


NAM 


SAMPL 




00000 0001 I4R ACRES 


DEF 


TABLE 


DEF ADDRESS OF TABLE 






OT A D "T~ 

ST A RT 




0001 000000 START 


NOP 






0002 066000R 


LOB 


ADRES 


GET ADDRESS OF TABLE 


00003 160001 


LDA 


1,1 


LOAD "a" THRU"B" 


• • 

• • 

• • 


• 
• 
• 


• 
• 
• 


(GET FIRST TABLE VALUE) 


• • 

00 114 000000 TABLE 


• 

BSS 


• 

100 






END 


START 
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PSEUDO INSTRUCTIONS ENT AND EXT 


ENTry point and external pseudo instructions 
provide object program linkage capability. 


FO/f EXAMPLE: 




PROGRAM "A" IS TO BE EXECUTED FIRST WITH CONTROL 
THEN PASSING TO PROGRAM "b". 


SEGMENT 1 
LABEL OPCODE OPERAND 


SEGMENT 2 
LABEL OPCODE OPERAND 


NAM PROGA 
ENT START 
EXT SAM 
START NOP 

• 


NAM PR06B 
ENT SAM 
SAM CLA 

• 
• 


• 
• 

JMP SAM 
END START 


• 

END 
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OBJECT PROGRAM LINKAGE 



OBJECT PROGRAM LINKAGE IS ACCOMPLISHED BY THE 
RELOCATING LOADER. THE LOADER CREATES LINKAGES 
ON THE BASE PAGE BY MATCHING "ENT" POINTS WITH 
"EXT" SYMBOLS. THE LOADER TRANSFERS TO THE LAST 
PROGRAM LOADED THAT HAS A VALID "END" RECORD. 



m EXAMPLE: 



MEMORY MAP 



LOADER TRANSFERS 
CONTROL TO 
PROGRAM 
A 



BASIC CONTROL SYSTEM 
(RELOCATING LOADER) 



/////////////// 



PROGRAM B 




PROGRAM A 



ENT START ^ 
END START J 



EXT SAM 
ENT SAM 




PROGRAM U TRANSFERS 
CONTROL TO 
PROGRAM 
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THE JUMP SUBROUTINE INSTRUCTION (JSB) 



THE JUMP SUBROUTINE INSTRUCTION (JSB) PROVIDES A METHOD TO 
EXECUTE A "SUBROUTINE" AND RETURN TO THE PROPER POINT IN THE 
"MAIN PROGRAM". TO PERFORM THIS FUNCTION 3 DISTINCT OPERATIONS 
ARE REQUIRED. 

® - PRESERVE THE RETURN ADDRESS. 

@ - TRANSFER CONTROL TO THE SUBROUTINE. 

(D - RETURN TO THE "MAIN PROGRAM" 

example: 

MAIN PROGRAM SUBROUTINE 
LOCATION LABEL OP CODE OPERAND LOCATION LABEL OP CODE OPERAND 



102 



100 

10-1 

102 

103 

104 

105 



LDA 



I 



200 
201 
202 
203 



CMP 



ADA 
HLT 
OCT 
OCT 



JSB 



J 



CMP 



CMA 
INA 



JMP 



CMP.I 



I 
J 



1 
7 
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A JSB 


EXAMPLE 




A SUBROUTINE TO CLEAR 


THE "A" AND "B" REGISTERS IS 




SHOWN AS AN EXAMPLE. THE SUBROUTINE IS "ENTERED^' 




FROM 3 DIFFERENT POINTS 


IN THE "MAIN PROGRAM; 




MAIN PROGRAM 


SUBROUTINE 


LOCATION 


LABEL OPCODE OPERAND 


LOCATION LABEL OPCODE OPERAND 


2000 


SSA 


^-,^^.^3000 CLEAR NOP 


2001 


JSB CLEAR - 


yy^OOA CLA 


2002 


INA 


X/ 3002 CLB 


• 

• 


• 
• 


/V / 3003 JMP CLEAR, I 


2077 


JSB CLEAR 




2-100 


ADA J 




2-101 

• 


ADA K 

• 




• 
• 

2500 


• 

JSB CLEAR 




2501 


HLT 
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THE EQU PSEUDO INSTRUCTION 

THE EQU PSEUDO INSTRUCTION EQUATES THE 
OPERAND SYMBOL TO THE LABEL FIELD. 



FOR EXAMPLE: 



LOCATION 


CONTENTS LABEL 


OPCODE 


OPERAND 


REMARKS 


00000 




NAM 


CHAR 




00017 


READR 


EQU 


17B 


READR " EQUALS" 17B 






ENT 


START 






m^m(b START 


NOP 






00001 


103717 


STC 


READR, C 




00002 


102317 


SFS 


READR 




00003 


026002R 


JMP 


^-1 




00004 


102517 


LIA 


READR 




00005 


126000R 


JMP 


START, I 




note: 










THE VALUE OF THE LABEL "READR" 


DEPENDS ENTIRELY ON THE 


OPERAND 


OF THE 


EQU PSEUDO INSTRUCTION. 


ALL OPERAND 


REFERENCES 


TO THE "READR" 


SYMBOL 


ARE ASSIGNED THE VALUE 


178. 
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THE COM PSEUDO INSTRUCTION 

• THE COM PSEUDO RESERVES A BLOCK OF STORAGE LOCATIONS THAT MAY BE USED IN 
COMMON BY SEVERAL SUBPROGRAMS. 

GENERAL FORM: 



COM name^ (size^), namCg (sizeg), . . . « name^ (size^^) REMARKS 



• EACH NAME IDENTIFIES A SEGMENT OF THE BLOCK FOR THE SUBPROGRAM IN WHICH THE 
COM STATEMENT APPEARS. 

• STORAGE LOCATIONS ARE ASSIGNED CONTIGUOUSLY 

• THE LENGTH OF THE BLOCK IS EQUAL TO THE SUM OF THE LENGTHS OF ALL SEGMENTS 
NAMED IN ALL COM STATEMENTS IN THE SUBPROGRAM. 

• TO REFER TO THE COMMON BLOCK OTHER SUBPROGRAMS MUST ALSO INCLUDE A COM 
STATEMENT. 

• AT LOAD TIME; THE SUBPROGRAM WITH THE GREATEST COMMON DECLARATION MUST BE 
LOADED FIRST. 



8-20 



Programming Course 
Students Manual 



LESSON mn 

Assembler Pseudo Instructions 





LABEL 


OP CODE 


OPERAND 


s 

E 
6 
M 

£ 

N 
T 


START 


NAM 
NOP 
LDA 

1 
1 
1 

COM 

1 


PR06A 
TABU 

TABU (10),TABL2(10),TABL3(10) 


11.11 
A 




1 

END 


START 


S 
E 

M 

E 




NAM 
COM 

t 


PROGB 

TABLA(15), TABLB(15) 


N 
T 

"b" 




1 

END 




s 

E 
6 
M 
E 
N 
T 




NAM 

STA 
1 


PR06C 
TABLX 




1 

COM 

1 


TABLX (8), TABLY (11) 


"c" 




1 

END 








USING THE COM PSEUDO 
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COMMON 

LOCATION PROG A 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

WORD #13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 



TABU 



PROGB 
TAB LA 



TABL2 



TABL2 + 2 



TABL3 



PROGC 
TABLX 



1 r 

TABLY 



TABLA+i2 



TAB 



LY+4 



TAB LB 



COMMON 
STORAGE 
BLOCK 



30 

LOCATIONS 
TOTAL 



•COMMON STORAGE 
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ASCII 

CHARACTER CODES 



TAPE CHANNELS 
OCTAL CODE 



87 654 ^ 321 








1 


2 




4 


5 


6 


7 


00 


NULL 


SOM 


EOA 


EOM 


EOT 


WRU 


RU 


BELL 


01 


FE 


HTAB 


LF 


V. TAB 


FORM 


CR 


SO 


SI 


02 


DC 


X-ON 


T ft DC 

1 ArL 
ON 


X-OFF 


t Art 
OFF 


ERROR 


SYNC 


LEM 


03 


S0 


S1 


S2 


S3 


S4 


S5 


S6 


S7 


04 


SPACE 


1 




# 


$ 


/o 


8r 


/ 


05 


( 


) 


^ 








• 


/ 


06 





1 


2 


3 


4 


5 


6 


7 


07 


8 


9 


• 




< 


- 


> 


? 


10 


@ 


A 


B 


C 


D 


E 


F 


G 


1 1 


H 


I 


J 


K 


L 


M 


N 







P 


Q 


R 


wM 


T 


U 


V 


W 


13 


X 


Y 


Z 


c 


\ 


D 


t 


< — 


14 


















15 


















16 


















17 








1 ACK 


ALT 
MODE 


ESC 


RO 



Example: Character 

Octol 1 
Binary 01 
Tape Channels 87 



2 3 
010 Oil 
654 * 321 



(*Feed hole) 
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THE ASC PSEUDO INSTRUCTION 

THE ASC PSEUDO IS USED TO DEFINE ALPHANUMERIC CONSTANTS. 

FOR example: 



ASSEMBLER 
GENERATED ASCII 
CONSTANTS 



053101-4- 
046111-4- 
042055-«- 
054130-4- 
0200404- 
042522-4- 
0511174- 
0510554- 
054531 4- 



LABEL OPERATION OPERAND 
1 5 10 15 20 25 30 








N,A,M 




T.E.S.T,1. ^ 




1 1 1 

1 1 1 




• 

1 1 
















aIs't'ex I' :\ 




1 1 1 












1 1 1 

— 1 1 1 
















• 












• 

— 1 — 1 — 








1— 1 h— 




• 




V ■ 1 


A 


s,T e;r 




a|s|c 




' n if^i^ 1 1 1 1 1 1 1 1 1 1 




















• 




1 1 I ■ t 1 1 1 1 1 1 1 1 t 1 1 1 ■ 1 1 1 








— 1 1 
• 






M 


e!s,s;i 




a|s]c 




9|,|v|aX|| ,D -|X,X| 1 iE;R;R|o|R|-|Y'Y| \ \ . \ [J 
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LESSON IX 
ASSEMBLER PROGRAMMING TECHNIQUES 



Objectives 


9-1 


Arithmetic Pseudo Instructions 


Q-in 

57- 1 U 


Address Modification 


9-2 


MPY — rixed Pomt Multiply example 


Q 1 1 


Subroutines 


9-3 


DIV — rixeci roint Divide example 


Q 17 
9- 1^ 


Calling Sequence 




rioaiing roini Mninmeiic 


9-13 


Direct Transfer of Parameters 


9-5 


Math Library Functions 


9-14 


FORTRAN Compatible Assembler Subroutines - 




Using a Library Function 


9-15 


The FORTRAN Call 


9-6 


Data Conversion 


9-16 


FORTRAN Compatible Assembler Subroutines - 




The Formatter 


9-17 


The Assembly Language Subroutine 


9-7 


Formatter Calling Sequence Selector 


9-18 


Floating Point Numbers 


9-8 


Using the Formatter 


9-19 


Arithmetic Pseudo Instructions 
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LESSON IX OBJECTIVES 

THE OBJECTIVES OF LESSON IX ARE TO TEACH THE 
STUDENT SOME BASIC PROGRAMMING TECHNIQUES. 
THESE INCLUDE: 

• ADDRESS MODIFICATION 

• SUBROUTINES 

• ARITHMETIC PSEUDO INSTRUCTIONS 

• INPUT/OUTPUT TECHNIQUES (FORTRAN I/O) 
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ADDRESS MODIFICATION 



ADDRESS MODIFICATION IS AN IMPORTANT PROGRAMMING 
TECHNIQUE. 

FOR EXAMPLE! a program to sum the contents of 

SEQUENTIAL MEMORY LOCATIONS. 



LABEL OPCODE OPERAND REMARKS 
1 5 10 15 20 25 30 




— 1 — 1 — 1— 




N AM 




M.O.D.I , , 


B 






e'q U 












EN T 




s^aXt. : : ; ; ieXtIrX ;p;o;i:n;t; 


s 


t|a|r|t 




N,0,P 








— 1 — 1 — 1 — 




L,D A 




^■^Ji 1 1 t 1 1 1 .^iNiIiT.IiAiLiI.Z E| ^ , 








ST A 




c.n,t,r; ; , , . . iC.p.u,n,t,e;r. ,:.!.,;...,.■ , 








c;l A 




, , , C E A,R, ,A 








L.D.B 




P,N,T;R, , , ; , . L,0,A D, A,D,D,R,E;s;S. ,0 F. .T A,B,L,E „ 


L 


o.o.P, 




A.D.A 




B,,,I, ,A,D,D. I n,d,i r,e,c,t,l,y, ,t,h,r,u, ,b, 




1 1 t 




i,n;b 




: , , , . ,A.D.D 1 .^,0, ,A D.D,R Ejs.S, , , j , , 








I S,Z 




CNT.R ,I|S, ,C,0,U,NT,E,R, ^,ER,0,? , 




1 1 1 




J.M.P 




L.O.OP, N,0,. C,0,N,T,I,N,U,E , , , , 








H.L.T 




, , , , , ,Y E;s„,H A,L T, C,0,H/\P,U,T,E,R, , , , , 








J.M.P 




S,T,A,R,T,+,1, , , P,R,0,6,R,A|M, ,R|E,S,T,A,R,T, , ' , , , 


C 


: 




DEC 




-10 COUNT V A LU E 


C 






b's's 




V. ; 1 ! w,o,R,K.i,N,G, :c,o:u,n,t;e,r, ; . : , , 


P 


N.T.R. 








TABLE , , , , .ADDR.E.S.S, O.F, T.ABL.E, , , , , 


T 






DEC 




i;0.,;5 .,1 5„.2,3,, 7,5 2 „82,7;2,,,3,3 ,;8 4„,9,,;2 8, , 








E,N,D 




ST ART 1 1 1 1 1 111. 
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SUBROUTINES 

SUBROUTINES ARE WRITTEN TO DO A SPECIFIC JOB. MOST 
SUBROUTINES REQUIRE DATA (PARAMETERS) FROM THE MAIN PROGRAM. 

FOR example: 

A SUBROUTINE TO COMPUTE THE ABSOLUTE VALUE OF THE CONTENTS 
OF REGISTER "A" 



LABEL 


OP CODE 


OPERAND 


REMARKS 


lABS 


NOP 








SSA, RSS 




A< 




JMP 


lABS.I 


NO, A = ANSWER 




CMA, INA 




YES, COMPLEMENT VALUE 




SSA 




DID A =100000 




CMA 




YES, SET A= 077777 




JMP 


lABS.I 


NO, A= ANSWER 
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LABEL OP CODE 



ONE PARAMETER 

CALLING 

SEQUENCE 



{ 



LDA 
JSB 

(RETURN) 



OPERAND REMARKS 

NUMBR CONVERT (NUMBR) 

lABS TO ITS ABSOLUTE VALUE 



TWO PARAMETER 

CALLING 

SEQUENCE 



LDA 
LDB 
JSB 

(RETURN) 



ADDRS 
COUNT 
READ 



BUFFER ADDRESS IN A REGISTER 
COUNT IN "B" REGISTER 
TRANSFER TO READ ROUTINE 



THREE OR MORE 
PARAMETER 
CALLING 
SEQUENCE 



JSB 
OCT 
DEF 
DEF 

(RETURN) 



CONVT 
7 

BUFFR 
CNTR 



TRANSFER TO CONVERT ROUTINE 
CODE WORD 
BUFFER ADDRESS 
COUNTER 



CALLING SEQUENCE 

(TECHNIQUES FOR TRANSFER OF PARAMETER DATA TO SUBROUTINES) 
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MAIN PROGRAM 



JSB 
OCT 
DEF 
DEF 



-►(RETURN) 



CONVT 
7 

BUFFR 
CNTR 



SUBROUTINE 



CONVT 



NOP 
LDA 
STA 
ISZ 
LDA 
STA 
ISZ 
LDA 
STA 
ISZ 



SAVE1 
SAVE 2 
SAVE 3 



JMP 
OCT 
OCT 
OCT 



CONVT, I 
SAVEi 
CONVT 

CONVT, I 
SAVE 2 
CONVT 

CONVT, I 
SAVE 3 
CONVT 



CONVT, I 

a 



DIRECT TRANSFER OF PARAMETERS 
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FORTRAN COMPATIBLE 
ASSEMBLER SUBROUTINES 



PART 1 - THE FORTRAN CALL 



FORTRAN MAIN PROGRAMS MAY COMMUNICATE WITH ASSEMBLY 
LANGUAGE SUBROUTINES. THIS FEATURE IS POSSIBLE ONLY IF 
THE SUBROUTINE IS COMPATIBLE WITH THE STANDARD FORTRAN 
CALLING SEQUENCE. 

FOR example: 

FORTRAN GENERATED ASSEMBLY LANGUAGE CODING 



THE ACTUAL TRANSFER OF DATA ITEMS IS THE RESPONSI- 
BILITY OF THE SUBROUTINE 



REMARKS 




JSB SAM TRANSFER TO "SAM" 
DEF ^+4 DEFINE RETURN ADDRESS 



DEF J DEFINE ADDRESS OF J 

DEF K DEFINE ADDRESS OF K 

DEF L DEFINE ADDRESS OF L 
( RETURN) 
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FORTRAN COMPATIBLE 
ASSEMBLER SUBROUTINES 

PART 2 - THE ASSEMBLY LANGUAGE SUBROUTINE 

A FORTRAN LIBRARY ROUTINE CALLED .ENTR MAY BE 

USED TO TRANSFER THE ADDRESSES OF THE PARAMETERS 
FROM THE MAIN PROGRAM TO THE SUBROUTINE. 

FOR example: 



LABEL OPCODE OPERAND 



REMARKS 





NAM 




ENT 




EXT 


J 


BSS 


K 


BSS 


L 


BSS 


SAM 


NOP 




JSB 




DEF 




LDA 




ADA 




STA 




J MP 



SAM 

SAM 

. ENTR 

1 

1 

1 



. ENTR 
J 
J 
K 

L, I 
SAM 



I 
, 1 



LOCATION FOR ADDRESS OF PARAMETER J 

II II II II II 1^ 

II II II II M 1^ 

ENTRY POI NT 
TRANSFER TO .ENTR 

DEFINE ADDRESS OF F I R ST PARAMETER 



RETURN TO MAIN PROGRAM 



NOTE: MAIN PROGRAM AND SUBROUTINE PARAMETERS MUST AGREE AS 
TO TYPE: 

REAL OR INTEGER 
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FLOATING POINT NUMBERS 

FLOATING POINT NUMBERS USE TWO MEMORY LOCATIONS IN THE 
FOLLOWING form: 



15 


14 




- 


s 


M.S.B. OF 


FRACTION 




15 




7 1 





-8 




LS.B. OF FRACTION 


EXPONENT 


S 



WORD A 
WORD 2 



FLOATING POINT NUMBERS HAVE A RANGE IN MAGNITUDE OF 
APPROXIMATELY HO^® TO 10^® 

FOR EXAMPLE! the greatest positive floating point number would be: 






111111111111111 


11111111 


1111111 






THE FRACTIONAL VALUE (MANTISSA) OF THE FLOATING POINT NUMBER IS 
ALWAYS IN THE RANGE 0<n<1. IN THE EXAMPLE ABOVE THE VALUE OF 
THE MANTISSA IS APPROXIMATELY 1. THE EXPONENT VALUE IS 2^-1(127io), 
THE VALUE OF THE NUMBER IS 1x2^2^; BY RAISING 2 TO THE 127th POWER 
(USING A LOG TABLE) IT BECOMES APPROXIMATELY 1.7x10^® 
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ARITHMETIC PSEUDO INSTRUCTIONS 

AN ADDITIONAL SET OF PSEUDO INSTRUCTIONS ARE INCLUDED IN THE 
ASSEMBLER TO ALLOW THE PROGRAMMER TO CONVENIENTLY USE 
THE ARITHMETIC SUBROUTINES DEVELOPED FOR THE COMPUTER. 

ALL OF THE ARITHMETIC PSEUDO INSTRUCTIONS HAVE THE FOLLOWING FORM: 



REFERENCES TO ARITHMETIC PSEUDO INSTRUCTIONS DO NOT HAVE 
TO BE DECLARED AS EXTERNAL SYMBOLS. 



LABEL 



OPCODE 



OPERAND 
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ARITHMETIC PSEUDO INSTRUCTIONS 


PSEUDO 


FUNCTION 


OPERATION 


MPY 


FIXED POINT MULTIPLICATION 


(A)X(m)-^(B±MSB and Alsb) 


DIV 


PIXID POINT DIVISION 


(B±MSB and ALSB)/(nr))— ► A, 


FAD 




remainder — »B 


FLOATING POINT ADDITION 


(AB)X(m, m + D— ► AB 


FSB 


FLOATING POINT SUBTRACTION 


(AB)/(m. AB 


FMP 


FLOATINGPOINT MULTIPLICATION 


(m. m+1) + (AB)— ► AB 


FDV 


FLOATING POINT DIVISION 


fAB — (m m-i-1) — *■ AB 


DLD 


DOUBLE LOAD 


(m) and (m+1) — ^ A and B 


DST 


DOUBLE STORE 


(A) and (B) — ► m and m + 1 






LEGEND: 






A- Reg. A m-Operand 






B>Reg. B MSB/LSB« Most/Least 






±»Sign Significant Bits 
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MPY - FIXED POINT MULTIPLY EXAMPLE 





■4 




-REGISTER" 


B" 




— ► 


<- 






- REGISTER 


II . II 

A — 






-> 




15,14 


13 12,11 10 9 .8 


7 6 




4 3,2 


1 


15,14 1312,11 


10 9.8 


7 6 


5 4 


3 


2 1 







S 30 


29—27 


26 — 24 


23— 


21 


20—18 


17— 


15 


14—12 


11 


— 9 


8 


6 


5 


3 


2 — 





EXAMPLE 1 


A A 
11 


iO 


9 


8 


7 


6 


5 


4 


3 


2 


1 


MULTIPLY 7x 3 
LDA SEVEN 


1 
1 

X 

1 


X 


X 


X 




X 

























7 




MPY THREE 


1 

6 


































2 




5 




EXAMPLE 2 

MULTIPLY (-1)x1 
LDA N60NE 


1 
1 
1 
1 
1 

X 
1 
1 


X 


X 


X 




X 


^ 




7 




7 




7 


7 




7 




MPY ONE 


1 

3 

1 


7 


7 


7 




7 


7 




7 




7 




7 


7 




7 





FORMAT OF PRODUCT 
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DIV - FIXED POINT DIVIDE EXAMPLE 



-"b" REGISTER 



"a" register 





30 


29 


28 


27 


26 


25 


24 


23 


22 


21 


20 


19 


18 


17 


16 


15 


14 


13 


12 


11 


10 


9 


8 


7 


6 


5 


4 


3 


2 


1 





s 
















D 




1 




V 




1 




D 




E 




N 




D 





















EXAMPLE 

DIVIDE 15BY6 

CLB 
LDA FIFTH 



DIV SIX 



11 


10 


9 


8 


7 


6 


5 


4 


3 


2 


1 


^0 
-►0 






















X 



X 



X 



X 

1 


X 
7 



RESULTS 







"A" REGISTER 



QUOTIENT 



2 



"B" REGISTER 







REMAINDER 



3 
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FLOATING POINT ARITHMETIC 


EXAMPLE: CONSIDER the following 


ASSEMBLY LANGUAGE STATEMENTS 


LABEL 


OP CODE OPERAND REMARKS 


X 


DEC 3000. 




Y 


DEC 25. 




A 


DEC 265. 




B 

c 
z 


DEC 100. 
BSS 2 
BSS 2 


(THE DECIMAL POINTS WILL CAUSE 
THE ASSEMBLER TO CONVERT THE 
NUMBERS TO 32 BIT FLOATING 
POINT REPRESENTATION) 




TO CALCULATE X *Y 
DLD X 
FMP Y 






DST Z 


Z = X*Y 




TO CALCULATE A/B 
DLD A 
FDV B 






DST C 


C = A/B 
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MATH LIBRARY FUNCTIONS 



TO PERFORM THE FOLLOWING OPERATIONS: 



(FLOATING POINT QUANTITIES) 



THE FOLLOWING INSTRUCTIONS 
CAN BE used: 



Y = ABS (X) ABSOLUTE VALUE 

Y = ATAN (X) ARCTANGENT 

Y = ALOG (X) NATURAL LOG 

Y = COS (X) COSINE 

Y = EXP (X) Y=e'< 

Y = SIN (X) SINE 



LDA 
LDB 
J SB 
STA 
STB 



(NAME) 
X 



X + 1 

(NAME) 

Y 

Y + 1 



Y = SORT (X) SQUARE ROOT 

Y = TAN (X) TANGENT 

Y = TANH (X) HYPERBOLIC TANGENT 

NOTES 

• LIBRARY FUNCTIONS MUST BE DEFINED AS EXTERNAL (EXT) SYMBOLS. 

• THEY MAY ONLY BE REFERENCED BY RELOCATABLE PROGRAMS. 

EXAMPLE : FIND THE SQUARE ROOT OF QUANTITY "x" AND STORE TO LOCATION "y" 

METH0D1 METHOD 2 

EXT SORT EXT SORT 

LDA X DLD X 



LDB X + 1 
JSB SORT 
STA Y 




JSB SORT 
DST Y 



STB Y+1 
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USING A 


LIBRARY FUNCTION 


PROBLEM STATEMENT 






RND THE 


HYPOTENUSE 


OF A RIGHT TRIANGLE 




WHERE: HYPOT= SQRTCX^+Y^) 




PROBLEM SOLUTION 






LABEL 


OP CODE 


OPERAND 


RFMARK^ 

r\ ivi MTV r\ o 




NAM 


HYPOT 

III! >✓ 1 






EXT 


SORT 




X 


BBS 


2 




Y 


BSS 


2 




HYPOT 


BSS 


2 




TEMP 


BSS 

• 


2 




START 


NOP 








OLD 


X 






FMP 


X 


X^ = X-)tX 




DST 


TEMP 






OLD 


Y 






FMP 


Y 


Y2 = Y*Y 




FAD 


TEMP 


X^ + Y^ 




JSB 


SORT 


HYPOT = Vx2 + y2 




DST 

# 


HYPOT 




END 


START 
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DATA CONVERSION 



EXTERNAL(INPUT) 
ASCII 



INTERNAKCOMPUTER) 
BINARY 



EXTERNAKOUTPUT) 
ASCII 



THE DATA CONVERSION PROCESS IS NOT APPARENT TO THE 
FORTRAN PROGRAMMER. 



FOR EXAMPLE: 



ASCII CODE 




5 


C 
6 


STATEMENT 






R.E,A,D,(,5.,,X,),IX, 









AS A RESULT OF THE READ STATE- 
MENT MEMORY LOCATION "IX" WOULD 
CONTAIN 0062178 

QUESTIONS! 

1. HOW WAS THE CONVERSION PERFORMED? 

2. HOW CAN A PROGRAMMER PERFORM THE 
EQUIVALENT OPERATION USING 
ASSEMBLY LANGUAGES 
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THE FORMATTER 


THE FORMATTER IS A LIBRARY ROUTINE DESIGNED PRIMARILY TO PROVIDE 


DATA CONVERSION AND INPUT -OUTPUT CAPABILITY 


FOR FORTRAN PROGRAMS. 


ASSEMBLY LANGUAGE PROGRAMS MAY USE THE FORMATTER BY CODING THE 


CORRECT CALLING SEQUENCE AND PROVIDING THE PROPER PARAMETERS. 


THE FORMATTER HAS 7 ENTRY POINTS. 




THE FORMATTER CONTAINS 7 SUB-PROGRAMS, EACH DESIGNED TO 


PERFORM A SPECIFIC PART OF THE TOTAL INPUT-OUTPUT OPERATION. 


FOR EXAMPLE: 








FORMATTER 






.DIG. 






( DECIMAL INPUT/OUTPUT) 






.810. 






(BINARY INPUT/OUTPUT) 






.lOR. 






(INPUT/OUTPUT REAL ) 






.101. 






(INPUT/OUTPUT INTEGER) 






.PAR. 






( REAL ARRAY) 






.lAR. 






(INTEGER ARRAY) 






.OTA. 






(TERMINATOR) 
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SAMPLE OF A "F^^EE FIELD" 



FORMATTER 

CALLING SEQUENCE SELECTOR; 



OUTPUT 



I 



INITtA 


L CALL 


LDfl 
CLB 
JSB. 


unit 
l!\IB 
BIO. 



INITIAL CALL* 



LDA (unit) 
CLB,ll\iB 
JSB.DIO. 
OCTD 

DEF (end of list) 



EXT .DIO 
OCT ! 
BSS 1 

TART LDA UNIT 
CL8> INB 
JSB ,DIO. 
OCT 
DEF END 
jSB .101. 
STA I 

(program continuation) 



INTEGER INPUT CALL 
lOI . 



END 



INITIAL CALL* 



DATA 


CALL 


LDA of 
LDB (arra\ 
JSB.RAR. 


elements) 
address) 




+SAMPLE OF A REAL NUMBER OUTPUT CALL 
* 

EXT .DIO., .IOH.,.DTA. 

UNIT OCT 2 

X OCT 077777 

OCT 177776 

FMT ASC 4><E13.6/) 



START LDA UNIT 
CLB 

JSB .DIO. 

DEF FMT 

DEF END 

DLD X 

JSB .lOR. 

JSB .DTA. 
END (program continuation) 



( START j 



SAMPLE OUTPUT 
. I 70M1E+39 




INITIA 


. CALL* 


LDA{u 
CLB 

JSB.DIG 
DEF (fo 
DEF (en 


lit) 

rmat) 
d of list) 



*For internal conversion only 
substitute the following - 



INITIAL CALL 



CLA (umt = 0) 

CLB,INB(in) or CLB (out) 

JSB.DIO. 

DEF (buffer) 

DEF (format) 

DEF (end of list) 



INITIA 


L CALL 


LDA (u 

CLB 

JSB.BK 


nit) 
). 



TERMINATION CALL 



in - ASCII to binary 
out - binary to ASCII 



LDA (-of elements) 
LDB (array address) 
JSB.IAR. 



JSB.IQI. 
STAi 



DATA 


CALL 


JSB. 
DST 


DR. 

X 



DATA 


CALL 


LDA (=of 
LDB (array 
JSB.RAR. 


elements) 
address) 




LDA of elements) 
LDB (array address) 
JSB.IAR. 



LDA i 
JSB. 101. 



DATA 


CALL 


OLD 
JSB 


X 

lOR. 
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USING THE 


FORMATTER 


EXT .10C*#.DI0.^.I0I*^.RAR»>*IAR#^ tBIO.^.DTA* 


♦DATA STORAGE AND CONSTANTS 
* 




BUFFR DEC 1#2>3>4>5 




N DEC 10 




UNIT2 OCT 2 




UNIT4 OCT A 




lARRY DEF BUFFR 




FMT2 ASC 16# (•♦PRINT ELEMENTS 3#5>AND 7'V3I5) 


♦CALLING SEQUENCE TO PUNCH AM INTEGER ARRAY IN BINARY FORM 
♦ 


LDA UN I I A 


LOAD A WIIH UNIT # 


CLB 


TO "B" FOR OUTPUT 


JSB •BIO. 


INITIAL CALL (BINARY) 


LDA N 


# OF ELEMENTS 


LDB lARRY 


ARRAY fiiDDRESS 


JSB .lAR. 


DATA CALL 


JSB .DTA* 
• 


NO MORE ITEMS ON DATA LIST 


• 

♦CALLING SEQUENCE TO PRINT THE 3RD^ 
♦ 


5TH> AND 7TH ELEMENTS OF BUFFR 


LDA UNIT2 


LOAD "A" WITH UNIT# 


CLB 


TO "B" FOR OUTPUT 


JSB .DIO. 


INITIAL CALL (FORMATTED) 


DEF FMT2 


ADDRESS OF ASCII FORMAT STRING 


DEF E0L3 


END OF LIST ADDRESS 


LDA BUFFR +2 


GET 3RD ELEMENT 


JSB #10 1* 


DATA CALL 


LDA BUFFR+4 


GET 5TH ELEMENT 


JSB .101. 


DATA CALL 


LDA BUFFR+6 


GET 7TH ELEMENT 


JSB .101. 


DATA CALL 


JSB .DTA. 


NO MORE ITEMS ON DATA LIST 


E0L3 (Program CoDtinuation) 
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Objectives 


10-1 


IOC Call (Parameter 1) 


10-14 


Introduction to the Basic Control System 


10-2 


Allowable Combinations of Read/Write Functions 


10-15 


Basic Control System 


10-3 


Command Reject 


10-16 


BCS Modules 


10-4 


Example Call to IOC 


10-17 


Simplified IOC Block Diagram 


10-5 


Example of IOC Calling Sequences 


10-18 


Unit Reference Numbers 


10-6 


Status Request (Device) 


10-19 


Example of an Initial Equipment Table 


10-7 


Coding Example to Check Status Conditions 


10-20 


Example of Upgrading the System 


10-8 


Status Request (System) 


10-21 


Logical to Physical Translation Process 


10-9 


Clear Request (Device) 


10-22 


Simplified I/O Operation 


10-10 


Example of a Clear Request 


10-23 


Input/Output Requests 


10-11 


Clear Request (System) 


10-24 


(Teletype) 8 Level Tape 


10-12 


internal Conversion Example 


10-25 


8 Level Paper Tape (Binary) 
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LESSON X OBJECTIVES 


THE 


OBJECTIVES OF LESSON X ARE: 


1 - 


TO INTRODUCE THE STUDENT TO THE HEWLETT-PACKARD 




BASIC CONTROL SYSTEM. 


2 - 


TO INSTRUCT THE STUDENT IN THE USE OF THE 




INPUT/OUTPUT CONTROL (IOC) AND I/O 




EQUIPMENT DRIVER SUBROUTINES. 
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INTRODUCTION TO 
THE BASIC CONTROL SYSTEM 



THE BASIC CONTROL SYSTEM PROVIDES 2 MAIN FUNCTIONS 
TO THE COMPUTER SYSTEM. 



1. Provides a flexible, systematic structure to handle 
input /output requests from system and user 
programs. 

2. Provides the loading and linking capability required 

for relocatable object programs produced by FORTRAN 
and the ASSEMBLER. 
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BASIC CONTROL SYSTEM 


THE BASIC CONTROL SYSTEM IS AN ABSOLUTE PROGRAM 
ON PAPER TAPE 




MEMORY 




f ^ f 

] s 1 


DiNAnT LUAucn 




BASIC 
CONTROL 


PAGE (n) 


LOADED USING THE 
BINARY LOADER 


SYSTEM 


PAGE (n-D 






PAGE 1 






PAGE 


THE BASIC CONTROL 


SYSTEM ALWAYS RESIDES IN UPPER MEMORY 
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1 ML dAoIU OUIM I KUL oYoILM Io 


MAUL UP Or 1 rlKtL 


INTEGRAL PARTS 




1 INPUT OUTPUT CONTROL 




2 I/O DRIVERS 




3 RELOCATABLE LOADER 












INPUT OUTPUT 


^ DA <^ C / n ^ 




CONTROL 




I/O DRIVERS 






RELOCATABLE LOADER 








PAGE(n-1) 






♦ PAGE 1 






PAGE 




BCS MODULES 
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SIMPLIFIED IOC BLOCK DIAGRAM 



USER I/O 
REQUEST 




® The user requests an I/O operation using a log ical unit number. 

(2) IOC finds the logical unit entry in the equipment table. 

d) The equipment table entry contains the address of the driver. 
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UNIT REFERENCE NUMBERS 



IN ORDER TO ALLOW NEW INPUT/ OUTPUT HARDWARE 
TO BE INTEGRATED INTO THE COMPUTER SYSTEM, USER 
REQUESTS TO IOC NEVER REFER TO THE PHYSICAL I/O 
DEVICE CHANNEL NUMBER. EACH I/O DEVICE IS ASSIGNED 
A LOGICAL NUMBER CALLED THE UNIT REFERENCE 
NUMBER 



UNIT REFERENCE NUMBERS REFER TO ONE OF TWO 
TABLES: 

1 - STANDARD UNIT TABLE 

2 - EQUIPMENT TABLE 
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EQUIPMENT TABLE 



UNIT REFERENCE 
NUMBERS 


I/O CHANNEL (S) 

8 


DEVICE 


7 


14 


TELEPRINTER 


10 


15 


H.S. TAPE READER 


11 


16 


H S TAPE PUNCH 


• 


• 


• 


• 


• 


• 


• 


• 


• 



EACH I/O DEVICE MAKES ONE ENTRY IN THE EQUIPMENT 
TABLE, HOWEVER THE FIRST ENTRY IS ASSIGNED UNIT 
REFERENCE NUMBER 7, 



EXAMPLE OF AN INITIAL EQUIPMENT TABLE 
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EQUIPMENT TABLE 



UNIT REFERENCE 
NUMBERg 


I/O CHANNEL (S) 

8 


DEVICE 


7 


16 


TELEPRINTER 


10 


17 


H.S. TAPE READER 


11 


20 


H.S. TAPE PUNCH 


12 


14/15 


MAGNETIC TAPE 


• 


• 


• 


• 


• 


• 



ALTHOUGH NEW CHANNEL ASSIGNMENTS FOR THE DEVICES ARE 
SHOWN. REFERENCES TO UNIT 7 WILL STILL BE ROUTED TO THE 
TELEPRINTER. THE EQUIPMENT TABLE PROVIDES THE LOGICAL/PHYSICAL 
FLEXIBILITY REQUIRED TO CHANGE OR UPGRADE A COMPUTER INSTALLA- 
TION WITHOUT CHANGE TO EXISTING PROGRAMS. 

EXAMPLE OF UPGRADING THE SYSTEM 
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STANDARD UNIT 
TABLE 



4 



KEYBOARD 
INPUT 



TELEPRINTER 
OUTPUT 



PROGRAM 
LIBRARY 



PUNCH 
OUTPUT 



INPUT 



LIST 
OUTPUT 



♦ — » 



EQUIPMENT TABLE 




DRIVER 



I/O 
CHANNEL 



d CHANNEL NUM. 



S EQUIP STATUS 



XMISSION LOG 



DRIVER ADDRESS 



-WlO 



W5> 



TABLE ENTRY 



FOR PUNCH 



TABLE ENTRY 



FOR DEVICE 



(N) 



TELEPRINTER 
DRIVER 



HIGH SPEED 
PUNCH 
DRIVER 



DRIVER FOR 
DEVICE (N) 





TABLE ENTRY 




HIGH SPEED 
READER 
DRIVER 


y 


FOR READER 


















LOGICAL TO PHYSICAL 
TRANSLATION PROCESS 



DEVICE 



TELEPRINTER 



HIGH SPEED 
PAPER TAPE 
READER 



HIGH SPEED 
PAPER TAPE 
PUNCH 



DEVICE (N) 
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READ/WRITE OPERATION? 
WHAT DEVICE ? 
WHERE IS THE DATA? 
HOW MANY WORDS /CHARS? 



I 



SIMPLIFIED I/O OPERATION 



IOC 




YES 



COMMAND 
REJECT 



I/O DRIVER 



INITIATOR 
SECTION 




YES 



CONTINUATOR 
SECTION 



I/O 
DEVICE 



RETURN 
TO MAIN 
PROGRAM 



PRIORITY 
INTERRUPT 
SYSTEM 
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EXT 


.IOC. 




JSB 


.IOC. 


DRIVER OR DEVICE BUSY "1 
ILLEGAL CALL OR DMA L 
CHANNEL NOT AVAILABLE.... \ 
roc WILL RETURN HERE J 


OCT 
JMP 


( <FUNCTION><SUBFUNCTIONXUNIT REF> ) 
(REJECT ADDRESS) 




DEF 


(BUFFER ADDRESS) 




DEC 


(BUFFER LENGTH OR COUNT) 


IF THE REQUEST IS ACCEPTED 
IOC WILL RETURN TO THE 
LOCATION FOLLOWING THE 
COUNT PARAMETER 


PROGRAM CONTINUATION 


INPUT OUTPUT REQUESTS 
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1 2 34 56 ABC D E F 




1) LEVELS 1 - 7 CONSTITUTE THE ASCII CODE 

Z) THE DUIVERS WITHIN BCS REMOVE THE 8th LEVEL ON INPUT 

AND PUNCH THE 8th LEVEL ON OUTPUT WHEN READING/WRITING 

3) CARRIAGE RETURN, LINE FEED IS THE ASCII END OF RECORD MARK 

4) A 'RUB OUT' CHARACTER FOLLOWED BY C.R., L.F. WILL CAUSE 
THE DRIVER TO IGNORE THE PRECEDING RECORD 

(TELETYPE) 8 LEVEL TAPE 
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BITS 



"V — 
E.O. R. 



o o 

o 

o 



o 

o 

o o 
o o 



o o 
o o 

o 
o 
o 



/I 



o o o o o 




o o 
o o 
o o 



o o 
o o 
o 



o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 

o o 



o o o o o o o 



Vf 


o 
o 


1 


9 


2 


10 


3 


II 


4 


12 


5 


13 


6 


14 


7 


15 



15 


14 13 12 


II 10 9 


8 7 6 


5 4 3 


2 1 

















1 



15 


14 13 12 


11 10 9 


8 7 6 


5 4 3 


2 1 





1 


1 1 


1 


1 


1 1 1 



8 BIT WORD COUNT FORMAT 

A VARIABLE LENGTH BINARY RECORD 
(SHOWN WITH 4 WORDS) 



16 BIT BINARY WORD FORMAT 

A FIXED LENGTH BINARY RECORD 
(SHOWN WITH 4 WORDS) 



1. Feed frames prior to the first character are ignored by the driver. 
Therefore the 1st frame of a binary record must be non - zero . 

2. Four feed frames separate binary records. 

3. To output a record in variable binary form, the number of words in 
the data block must be in the range l<n^255|o* The second frame 
of the word count * is ignored on input. 

4. Variable binary input uses the word count, or the specified buffer 
size to terminate transmission, whichever value is smaller. 

8 LEVEL PAPER TAPE (BINARY) 
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IOC CALL (PARAMETER 1) 



LABEL 



12 11 



OPCODE 


OPERAND 


EXT 


.IOC. 


J S B 


• IOC* 


^ OCT 


10005 ^ 


J MP 


^-2 


DEF 


BUFFR 


DEC 


-10 


9 8 7 


6 5 



FUNCTION 




P 


V 


m 


UNIT REFERENCE 













CODE (OCTAL) 



READ 01 
WRITE 02 



P=1 PRINT TTY 
INPUT 
(KEYBOARD READER) 




UNIT REFERENCE VALUES 

STANDARD UNIT NUMBERS 1-6 
OR 

UNIT REFERENCE NUMBERS 7-n 



m =1 BINARY 
= ASCII 



V = 1 VARIABLE 
BINARY INPUT 
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OPERATION 

READ ASCII RECORD 
READ ASCII RECORD 
AND PRINT 

READ BINARY RECORD 
READ VARIABLE LENGTH 
BINARY RECORD 

WRITE ASCII RECORD 
WRITE BINARY RECORD 



FUNCTION 


WMM,. 


SUB 

FUNCTION 


m////////////////A 

%UNIT- REFERENCE ////, 


P 1 V 1 M 


















2 
2 



















4 



1 

3 




1 



ALLOWABLE COMBINATIONS 
OF READ/WRITE FUNCTIONS 
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COMMAND REJECT 



LABEL OPCODE OPERAND 



AN I/O REQUEST THAT IS REJECTED 

WILL CAUSE IOC TO RETURN CONTROL HERE 

THE CAUSE OF THE REJECT WILL BE 
RETURNED IN THE B REGISTER. 



JSB 
OCT 
JMP 
DEF 
DEC 



.IOC. 
XXXXX 

ADDR 
COUNT 



A- REGISTER 



15 14 



8 7 



EQUIPMENT TYPE 



STATUS 



B - REGISTER 



.15 14 1 




d = 1 DEVICE OR DRIVER BUSY 

c ^ 1 DMA CHANNEL NOT AVAILABLE 

d = c = ILLEGAL FUNCTION OR SUBFUNCTION 
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LABEL 



OP CODE 



OPERAND 



REMARKS 



EXT 



.IOC. 



I 

JSB 
OCT 
JMP 
DBF 



I 
I 

.IOC. 
10005 

TABL 



READ ASCII, STD INPUT 



ADDRESS OF BUFFER 



DEC 

I 
I 
I 
I 



10 



NUMBER OF WORDS 



TABL 



BSS 
I 
I 



10 



END 



1 - THE ADDRESS OF THE FIRST WORD OF THE BUFFER IS DEFINED 

USING THE DEF PSEUDO. 

2 - THE NUMBER OF WORDS/CHARACTERS TO BE TRANSFERRED 

IS DEFINED BY: 

WORDS = A POSITIVE VALUE 
CHARACTERS = A NEGATIVE VALUE 

EXAMPLE CALL TO IOC 
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LABEL 


OP CODE 

• 


OPERAND 


REMARKS 




• 
• 

EXT 


.IOC. 


.IOC EXTERNAL 


LINE 


BBS 


36 


36 WORD PROGRAM BUFFER 




COM 

• 


D KB (100) 


100 WORD LUMMUN bUr r LK 


READ1 


• 

JSB 


.IOC. 






OCT 


10005 


READ ASCn 




JMP 


^-2 






DEF 


LINE 


PROGRAM BUFFER 




DEC 

• 


-72 


72 ASCII CHARS 


WRITE 1 


• 

JSB 


.roc. 


WRITE BINARY 




OCT 


20111 






JMP 


^-2 






DEF 


BKB 


COMMON BUFFER 




DEC 

• 
• 


100 


100 BINARY WORDS 


• 

EXAMPLE OF IOC CALLING 


SEQUENCES 
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STATUS REQUEST (DEVICE) 



15 



12 



FUNCTION 04 



UNIT- REFERENCE 



(CALLING SEQUENCE) 
JSB .IOC. 

OCT <FUNCTION> <UNiT-REF> 



IOC WILL RETURN TO THE MAIN PROGRAM 
WITH WORD 2 or THE EQT IN THE 
A REGISTER, AND WORD 3 OF THE EQT 
IN THE 'B' REGISTER. 



15 



1413 



8 7 



A = 



EQUIP TYPE 



0- READY ^AN HP ASSIGNED # SUCH AS 

1- READY WITH 00 FOR TTY, 01 PHOTO- 
ERROR READER ETC. 

2- BUSY 

15 14 



7 



/I 



STATUS 



PHYSICAL STATUS OF THE 
I/O DEVICE. 



B = 



^0=ASCTI 
Is BINARY 



TRANSMISSION LOG 
^ 



# OF WORDS/CHARACTERS TRANSMITTED 
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LABEL OP CODE OPERAND REMARKS 

COMMAND INITIATION 



RFAn 

RU.ML/ 










OCT 


10015 


READ ASCII 




JMP 


REJECT 






DEF 


INBUF 


BUFFER ADDRESS 




DEC 


-20 


20 CHARACTERS 




JMP 

• 


STAT 




REJECT 


SSB 




IS DRIVER BUSY? 




JMP 


READ 


YES, RE- INITIATE COMMAND 




JSB 


ABORT 


NO, GOTO ERROR ROUTINE 


INBUF 


BSS 


10 



STATUS CHECKING 



STAT JSB .IOC. 

OCT 40015 REQUEST STATUS 

SSA IS DRIVER BUSY ? 

JMP STAT YES, LOOP UNTIL FREE 

RAL NO, ROTATE 6 TEST BIT 14 

SSA, RSS ANY ERROR ? 

JMP PROCS NO, CONTINUE PROCESSING. 

ALF, ALF YES, POSITION BIT 5 

RAL FOR STATUS TEST 

SSA EOT CONDITION ? 

JMP ENDPR YES, GO TO EOT ROUTINE 

JSB ABORT NO, GO TO ERROR ROUTINE 



CODING EXAMPLE TO CHECK STATUS CONDITIONS 
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STATUS REQUEST (SYSTEM) 



15 


12 


5 


FUNCTION 






UNIT REFERENCE 


A 











CALLING SEQUINCE 

JSB .toe. 
OCT 40000 
(RETURN) 

IOC WILL RETURN TO THE MAIN PROGRAM WITH REGISTER "A": 

POSITIVE - No system devices are busy 
NEGATIVE - A system device is busy 
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THE ONLY OTHER PARAMETER REQUIRED IS THE UNIT-REFERENCE 
NUMBER. 

THE CLEAR REQUEST TERMINATES A PREVIOUSLY ISSUED INPUT OR 
OUTPUT OPERATION BEFORE ALL DATA IS TRANSMITTED. IT HAS 
THE FOLLOWING FORM: 



(CALLING SEQUENCE) 
JSB .IOC. 

OCT <FUNCTION> <UNIT-REFERENCE> 



CLEAR REQUEST (DEVICE) 
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LABEL 


OP CODE 

• 


OPERAND 


REMARKS 




• 
• 

JSd 


.IOC. 


OPEN TTY INPUT CHANNEL 




OCT 


10401 


READ FROM KEYBOARD 




JMP 


^-2 


BUSY, TRY AGAIN 




DEF 


MSG 


DATA BUFFER 




DEC 


-72 


72 CHARACTERS MAX 




JSB 
• 


TIMER 


RTN TO TIME OPERATOR RESPONSE 


CLRRD 


• 

JSB 


.100. 


CLEAR REQUEST 




9 
• 
• 


i 

1 


HM 1 IMTT 1 


EXAMPLE OF A CLEAR REQUEST 
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Th* scconcl word consist* of tho following: 



15 1211 6 5 g 




CALLING SEQUENCE 



JSB SOC. 
OCT 
(RETURN) 



THE SYSTEM CLEAR REQUEST CAUSES IOC TO CLEAR ALL 

DEVICES AND DRIVERS DEFINED BY THE EQUIPMENT TABLE. THIS 

MAKES ALL DEVICES AVAILABLE FOR INITIATING AN OPERATION. 



CLEAR REQUEST (SYSTEM) 
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INTERNAL CONVERSION EXAMPLE 



♦CALLING SEQUENCE TO INTERNALLY CONVERT A REAL ARRAY (BINARY) 

♦TO ASCII AND OUTPUT WITH A CALL DIRECTLY TO .IOC 

* 

EXT • IOC. > .DIO. # .RAR . , .DTA. 
ENT START ^ ^ 



♦DATA STORAGE AND CONSTANTS 



BUFFX DEC 
N 

CNT 
CNTR 
P6 
FMT4 



DEC 10 
DEC -10 
OCT 
OCT 3 

ASC 3^<F6.2) 



10. 



ABUFR BSS 30 
ADDRS DEF ABUFR 
RARRY DEF BUFFX 



q T ART 


MOP 








CLA 




UNIT =0 MEANS INTERNAL CONVERSION 




CLB 




TO "B" FOR OUTPUT 




JSB 


♦ DIO * 


INITIAL CALL (FORMATTED) 




DEF 


ABUFR 


ADDRESS OF BUFFER FOR ASCII DATA 




DEF 


FMT4 


ADDRESS OF ASCII FORMAT STRING 




DEF 


E0L5 


END OF LIST ADDRESS 




LDA 


N 


#0F ELEMENTS 




LDB 


RARRY 


ARRAY ADDRESS 




JSB 


• RAR. 


DATA CALL 




JSB 


.DTA. 


NO MORE ITEMS ON DATA LIST 


E0L5 


LDA 


CNT 


INITIALIZE COUNTER 




STA 


CNTR 






LDA 


ADDRS 


PICK UP BUFFER ADDRESS 




STA 


POINT 


INITIALIZE ADDRESS 


LOOP 


JSB 


.IOC. 


CALL .IOC 




OCT 


20002 


OUTPUT ON UNIT #2 




JMP 


♦ -2 


REJECT 


POINT 


OCT 





BUFFER ADDRESS 




DEC 


-6 


6 ASCII CHARACTERS 




JSB 


.IOC. 


STATUS CHECK 




OCT 


40002 


UNIT #2 




SSA 




BUSY? 




JMP 


♦ -3 


YES> CHECK STATUS AGAIN 




LDA 


POINT 


N0> MODIFY BUFFER 




ADA 


P6 


ADDRESS TO OUTPUT 




STA 


POINT 


NEXT ELEMENT 




ISZ 


CNTR 


IS CNTR 0? 




JMP 


LOOP 


m» OUTPUT NEXT ELEMENT 



(Program Continuation) 
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Objectives 


11-1 


The Relocatable Loader 


11-2 


Loader Provided Linkages 


11-3 


Memory Map 1 


11-4 


Memory Map 2 


11-5 


Memory Map 3 


11-6 


Memory Map 4 


11-7 


Loading Example. 


11-8 


Loader Listing 


11-9 


Absolute Binary Output 


11-10 


Loader Diagnostics 


11-11 


Halt Index, Binary Output Option 


11-12 


Prepare Control System (P.C.S.) 


11-13 


P.C.S. Overview 


11-14 



Planning the System 


11-15 


Interrupt Linkage 


11-16 


Equipment Table Numbers 


11-17 


Interrupts, Linkage, Driver I.D. 


11-18 


Standard Unit Numbers 


11-19 


P.C.S. Operations 


11-20 


Initialization Phase 


11-21 


Loading the I/O Equipment Drivers 


11-22 


Loading the IOC Module 


11-23 


The Relocating Loader Module 


11-24 


Additional P.C.S./B.C.S Capabilities 


11-25 


System Input/Output Dump Routine 


11-26 


S.I.O. Memory Map 


11-27 


Configuring a Program System 
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LESSON XI OBJECTIVES 




THE PRIMARY OBJECTIVES OF LESSON XI ARE: 




1. 


TO DISCUSS THE OPERATION OF THE HP 
LOADER IN MORE DETAIL AND DESCRIBE 
LOADER FEATURES. 


RELOCATING 
ADDITIONAL 


o 


TO TEACH THE STUDENT HOW TO USE THE 
''CONFIGURATION" ROUTINES- 




PREPARE CONTROL SYSTEM. 
SYSTEM INPUT/OUTPUT DUMP. 
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THE RELOCATABLE LOADER: 



• LOADS RELOCATABLE OBJECT PROGRAMS. 

• ESTABLISHES COMMON STORAGE BOUNDARIES. 

• PROVIDES LINKAGES WHEN THE OBJECT PROGRAM 
IS LOADED ACROSS PAGE BOUNDARIES. 

• WILL PUNCH AN ABSOLUTE BINARY TAPE OF THE 
OBJECT PROGRAM. (OPTION) 

• PROVIDES A MEMORY LISTING OF PROGRAM 
BOUNDARIES AND THE ABSOLUTE ADDRESS OF ALL 
'ENT' POINTS DECLARED IN THE SOURCE PROGRAM. 

• PROVIDES A *LOAD AND GO' FEATURE OR THE 
OPTION OF MANUAL ENTRY OF THE STARTING 
ADDRESS. 
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LABEL 


OP CODE 

1 


OPERAND 




1776 


1 

DEF 


B 




PAGEO 


1777 


DEF 


A 

A 




PAGE 1 


ABSOLUTE START OF PROGRAM 










1 

ISZ 




1777, 1 






LDA 




1777, 1 


PAGE 1 




ADA 


¥ 


1776,1 








PAGE 2 




ADA 


C 








JMP 


X 






A 


BSS 


1 






B 


BSS 


1 






C 


BSS 


1 






X 


LDA 


A 








HLT 






IN 


THI EXAMPLE^ SYMBOLIC TERMS ARE USED FOR 


SIMPLICITY 


AND TO DfSCRIBE THE 


'EFFECT' OF THE LOADERS 


ACTION. 




LOADER PROVIDED LINKAGES 













11-3 



LESSON XI 

HP Relocating Loader, Configuration Routines 



Programming Course 
Students Manual 



07777 OR 17777 
07700 OR 17700 



02000 



00000 




BASIC BINARY LOADER 



BASIC CONTROL SYSTEM 



,.*2:^SYSTEM LINKAGE 

RESERVED LOCATIONS 



MEMORY MAP 1 
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07777 OR 17777 
07700 OR 17700 

NON-RELEASABLE 
PORTION OF 
LOADER 



PROGRAM RELOCATION 
BASE 



02000 



BASE PAGE 
RELOCATION 
BASE - 



00000 



INPUT/OUTPUT CONTROL 
AND 

EQUIPMENT DRIVER 
SUBROUTINES 





V \ \ \ 
BASE PAGE 
AVAILABLE 

MEMORY 

\ \ \ 



BASIC BINARY LOADER 
|- BASIC CONTROL SYSTEM 




BASE PAGE PROGRAM A SEGMENT 



^^2^1-INKAGE AREA 



-SYSTEM LINKAGE 
RESERVED LOCATIONS 



MEMORY MAP 2 
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07777 OR 17777 
07700 OR 17700 



NON-RELEASABLE 
PORTION OF 
LOADER 

COMMON 
RELOCATION 
BASE 



02000 



00000 



COMMON AREA FOR A.BaC 

^^^^^^^^ 



INPUT/OUTPUT CONTROL 
AND 

EQUIPMENT DRIVER 
SUBROUTINES 



BASIC BINARY LOADER 
|- BASIC CONTROL SYSTEM 



COMMON AREA FOR A a B ONLY 



PROGRAM C 



PROGRAM B 



PROGRAM A 



LINKAGE AREA 



BASE PAGE PROGRAM C SEGMENT 



BASE PAGE PROGRAM B SEGMENT 



COMMON BLOCK 



PROGRAM AVAILABLE 
MEMORY 



23>^7^BASE PAGE 
^ AVAILABLE MEMORY 




SYSTEM LINKAGE 
RESERVED LOCATIONS 



MEMORY MAP 3 
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PROGRAM AVAILABLE 
MEMORY 



02000 



SYSTEM LINKAGE 



INPUT/OUTPUT CONTROL 
AND 

EQUIPMENT DRIVER 
SUBROUTINES 



COMMON BLOCK 



////////////////////// ////JJJ J J/ J// J J///777777. 



PROGRAM D 



PROGRAM B 



PROGRAM A 



LINKAGE AREA 



PROGRAM E 



PROGRAM C 



-BASIC BINARY LOADER 
BASIC CONTROL SYSTEM 



-BASE PAGE 
AVAILABLE MEMORY 



-RESERVED LOCATIONS 



MEMORY MAP 4 
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LABEL OP CODE 


OPERAND 


REMARKS 


ASMB, R, B, L, T 

NAM 
EXT 
ENT 

START NOP 
BEGIN MPY 

STA 

• 


PROGA 

.roc. 

BEGIN 

SAM 

MIKE 

IVIIIXC. \ Die,) 


PROGA 
SEGMENT 


END 


START 




ASMB, R, B, L, T 

M A M 

EXT 

• 


FLOAT, BEGIN 




• 

JSB 


FLOAT 




LDA 
COM 

• 


TABL 

TABL (255) 


PR06B 
SEGMENT 


JMP 


BEGIN 




END 






LOADING EXAMPLE 
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LOADER MESSAGES 

PROGA 

02000 03002 
L LOAD 
Q PROGB 

03003 04006 

D MPY 
E FLOAT 
p LOAD 
MPY 

04007 04117 
L FLOAT 

I 04120 04124 

' .PACK 
S 04125 04231 

y *LST 

' .IOC. 17515 

N .MEM. 16113 

BEGIN 02001 

MPY 04007 

FLOAT 04120 

.PACK 04125 
•COM 

15112 16111 
•LINKS 

01773 01777 
•RUN 



G 
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COMMENTS 

PROGRAM "A" IS LOADED 
MORE PROGRAMS? 

YES, LOAD PROGRAM "B" 

LIST UNDEFINED EXT SYMBOLS; SW.O UP^PRESS RUN 



MORE PROGRAMS? YES, LOAD FROM LIBRARY 



LIBRARY ROUTINE 
LIBRARY ROUTINE 



FLOAT CALLS .PACK 

PRINT LOADER SYMBOL TABLE? 
SW. 15=0 , YES-SW. 15=1, NO. 

ENTRY POINTS WITH ABSOLUTE ADDRESSES 



COMMON STORAGE BOUNDS 

LOADER PROVIDED LINKAGES 
READY TO EXECUTE 
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RELOCATABLE 
OBJECT TAPES 




BINARY OUTPUT OPTION SWITCH 14^1 



THE LOADER PRODUCES THE ABSOLUTE BINARY OBJECT TAPE DURING 
A *PSEUDO LOAD' OPERATION. THE ABSOLUTE BINARY TAPE CAN BE 
LOADED BY THE BINARY LOADER. 

ABSOLUTE BINARY OUTPUT 
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MESSAGE 


EXPLANATION 


ACTION 


•LOT 


CHECKSUM ERROR 


REREAD THE RECORD 


•L02 


ILLEGAL RECORD 


RIGHT TAPE? REREAD THE 
RECORD 


*L03 


MEMORY OVERFLOW 


REVISE PROGRAM 


*L04 


LINKAGE AREA OVERFLOW 


REVISE LOADING ORDER, 
OR REVISE PROGRAM 


*L05 


LOADER SYMBOL TABLE 
OVERFLOW 


REVISE PROGRAM 




COMMON BLOCK ERROR 
/Current common de- \ 
I claration exceeds initial) 
\common declaration / 


LOAD PROGRAM CONTAINING 
THE LARGEST COMMON BLOCK 
FIRST 


•L07 


DUPLICATE ENTRY POINTS 


REVISE PROGRAM 


*L08 


NO TRANSFER ADDRESS 


LOAD STARTING ADDRESS IN 
A kEGISTEK, PUSH RUN. 


•L09 


RECORD OUT OF SEQUENCE 


REASSEMBLE PROGRAM OR 
RELOAD BCS AND TRY AGAIN 




LOADER DIAGNOSTICS 
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T' REGISTER 


EXPLANATION 


ACTION 


HALT 66 (102066) 


TAPE SUPPLY ON 
2753A PUNCH 
IS LOW 


REPLENISH TAPE 
SUPPLY , PUSH RUN 


HALT 55 (102055) 


A LINE IS ABOUT 
TO BE PRINTED 
ON THE BINARY 
OUTPUT DEVICE 


TURN PUNCH OFF, 
PUSH RUN 


HALT 56 (102056) 


A LINE HAS BEEN 

PRINTED WHILE 
THE PUNCH UNIT 
WAS OFF 


TURN PUNCH ON, 
PUSH RUN 


HALT INDEX, BINARY OUTPUT OPTION 
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PREPARE CONTROL SYSTEM (P.C.S.) 

WHAT IS ITP 

A COMPUTER PROGRAM WHICH PROCESSES RELOCATABLE 
MODULES OF THE BASIC CONTROL SYSTEM AND PRODUCES 
AN ABSOLUTE VERSION OF B.C.S. TAILORED TO THE SPECIFIC 
HARDWARE CONFIGURATION. 

WHAT DOES IT DOP 

IT CREATES AN OPERATING SYSTEM CONSISTING OF THE INPUT/OUTPUT 
SUBROUTINE (I.O.C.), THE RELOCATABLE LOADER (LDR) AND THE 
REQUIRED PERIPHERAL EQUIPMENT INPUT/OUTPUT DRIVER 
SUBROUTINES. 



PROCESSING ENVIRONMENT 
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P.C.S. OVER VIEW 




P.CS PROVIDES THE CAPABILITY OF CREATING 


A COMPLETE 


BASIC CONTROL SYSTEM IN THE COMPUTERS MEMORY. 


LAST WORD AVAILABLE— 

MCMUn T 


BASIC BINARY LOADER 




I/O DRIVER 4* i 




(LWAM) 


I/O DRIVER ^2 






I/O DRIVER ^3 


MEMORY 

iwi w nri \j w 1 




I/O DRIVER 4*4 






INPUT OUTPUT CONTROL 






RELOCATING 
LOADER MODULE 






AVAILABLE MEMORY 




2000 — 


PREPARE CONTROL 
SYSTEM 




BASE PAGE 
AVAILABLE MEMORY 




FIRST WORD AVAILABLE — 
MEMORY 


SYSTEM LINKAGE 




INTERRUPT LINKAGES 




(FWAM ) 


INTERRUPT LOCATIONS 




WHEN ALL INDIVIDUAL ELEMENTS ARE PRESENT IN MEMORY. 
RC.S. WILL PUNCH AN ABSOLUTE BINARY VERSION OF THE 
COMPLETE BASIC CONTROL SYSTEM. 
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PLANNING THE SYSTEM 

THE FIRST CONSIDERATION TO BE MADE IS THE PHYSICAL 
PLACEMENT OF THE I/O INTERFACE CARDS. CHANNEL -#10 
HAS THE HIGHEST PRIORITY, ^11 NEXT HIGHEST, ETC. 
GENERALLY, THE DEVICE THAT GENERATES THE GREATEST 
NUMBER OF INTERRUPTS PER UNIT OF TIME IS ASSIGNED 
THE HIGHEST PRIORITY. 

FOR EXAMPLE : 

ASSUME A COMPUTER SYSTEM IS MADE UP OF THE FOLLOWING UNITS: 

1. - READ/ WRITE MAGNETIC 

TAPE (REQUIRES TWO 
INTERFACE BOARDS!" 

2. - HIGH-SPEED PAPER TAPE 

READER 

3. - HIGH-SPEED PAPER TAPE 

PUNCH 

4. - TELEPRINTER (ASR-33) 



I/O CARD CHANNEL ASSIGNMENTS 
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INTERRUPT LINKAGE 

WHEN AN 1/0 DEVICE CAUSES AN INTERRUPT IT FORCES THE 
COMPUTER TO EXECUTE THE CONTENTS OF THE INTERRUPT 
LOCATION. SINCE ALL INTERRUPT LOCATIONS ARE ON THE 
BASE PAGE AND THE I/O DRIVERS ARE IN HIGH MEMORY THE 
TRANSFER TO THE DRIVER MUST USE INDIRECT ADDRESSING. 



FOR example: 



I/O 
DEVICE 



I/O 
CHANNEL 



TELEPRINTER — 12 
TAPEPUNCH — n 
TAPEREADER — 10 



16 
15 
14 
13 
12 
11 
10 



MEMORY 



1.01 TAPE READER DRIVER 



1.02 TAPE PUNCH DRIVER 



I.OO TELEPRINTER DRIVER 




FWAM 



DEF i:oo 



DEF i:02 



DEF i:oi 



JSB 15,1 



JSB 14,1 



JSB 13,1 
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EQUIPMENT TABLE NUMBERS 

EQUIPMENT TABLE NUMBERS BEGIN WITH 7. EACH DEVICE 
IS ASSIGNED A SEQUENTIAL OCTAL NUMBER. WITHIN THIS 
FRAMEWORK THE INITIAL NUMBER ASSIGNMENTS ARE 
ARBITRARY . 

FOR EXAMPLE : 

EOT 

1«» ENTRY - PHOTO READER 
2nd ENTRY - TAPE PUNCH 
3'*^ ENTRY - TELEPRINTER 
4*^ ENTRY - MAG TAPE 




EQUIPMENT 
TABLE 



12 



7 



10 
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INTERRUPTS, LINKAGE, DRIVER I.D. 



INTERRUPT LOCATION - RC.S. WILL CAUSE A COMPUTER INSTRUCTION TO BE 

STORED HERE. (USUALLY A JSB, 1) 

LINKAGE LOCATION - P.C.S. WILL CAUSE THE ADDRESS OF THE CONTINUATOR 

SECTION OF THE I/O DRIVER TO BE STORED HERE. 

DRIVER IDENTIFICATION - THE SYMBOLIC NAME OF THE I/O DRIVER 

INITIATOR SECTION ENTRY POINT. 



INTERRUPT IDENTIFICATION -THE SYMBOLIC NAME 

THE I/O DRIVER CONTINUATOR 
SECTION ENTRY POINT 



FWAM -THE FIRST WORD OF AVAILABLE MEMORY. 



note: driver and interrupt 
id codes assigned by h-p. 
the symbols used must 
be unique. 




DRIVER IDENTIFICATION 


D.21 




D.01 


D.02 


D.00 


INTERRUPT LOCATION 


10 


11 


12 


13 


14 


LINKAGE LOCATION 


15 


16 


17 


20 


21 


INTERRUPT IDENT. 


1.21 


C.21 


1.01 


1.02 


1.00 


EQUIPMENT 
TABLE 


12 




7 


10 


11 



22) FWAM 
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STANDARD UNIT NUMBERS 

The standard unit numbers are simply 
pointers to the appropriate equipment 
table entries. 



To assign standard units 
place a checkmark at the 
intersection of the standard 
unit table number (x-axis), 
and the correct equipment 
table number (y-axis) 




DRIVER IDENTIFICATION 


D.21 




D.01 


D.02 


D.00 


INTERRUPT LOCATION 


10 


11 


12 


13 


14 


LINKAGE LOCATION 


15 


16 


17 


20 


21 


INTERRUPT IDENT. 


1.21 


C.21 


1.01 


I.C 


32 
3 


1.00 
11 


EQUIPMENT 
TABLE — ^ 


12 




7 


1( 


















STANDARD \ 
UNIT TABLE \ 




1. 


KEYBOARD INPUT 










/ 


2. 


TELEPRINTER OUTPUT 












3. 


PROGRAM LIBRARY 












4. 


PUNCH OUTPUT 












5 


INPUT 












6. 


LIST OUTPUT 
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P.C.S. OPERATIONS 



THE NEXT FEW CHARTS WILL DESCRIBE A SIMPLE B.C.S. 
CONFIGURATION. THE SYSTEM WILL CONSIST OF A COMPUTER 
SYSTEM WITH 8K OF MEMORY AND THE FOLLOWING PERIPHERALS'. 

1. READ/WRITE MAGNETIC TAPE — I/O CHANNELS 10,11 

2. PHOTOELECTRIC PUNCHED PAPER y/n ruAMMci lo 
TAPE READER CHANNEL 12 

3. HIGH SPEED PAPER TAPE PUNCH — I/O CHANNEL 13 

4. TELEPRINTER (ASR 33) — I/O CHANNEL 14 

THE ACTUAL CONFIGURATION PROCESS MAY BE DESCRIBED IN FIVE 
PHASES. 

PHASE i- INITIALIZATION 

PHASE 2- LOADING THE I/O EQUIPMENT DRIVER 

PHASE 3- LOADING THE IOC MODULE 

a. CREATING THE EQUIPMENT TABLE 

b. CREATING THE STANDARD UNIT TABLE 

PHASE 4- LOADING THE RELOCATING LOADER MODULE 

a. ESTABLISH THE INTERRUPT LINKAGES 

PHASE 5- PUNCH THE ABSOLUTE OUTPUT TAPE 
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INITIALIZATION PHASE 




THE P.C.S. PROGRAM 


INITiAl l7ATinN PHASF 




COMMUNICATIONS 


REMARKS 






HS INP? 
17 


Is H.S. input unit available p ^ 
Cliannel number of photo -reader 


THESE ENTRIES 
REFER TO THE 

r "configuring" 




HS PUNp 


Is H.S puncli available p 


SYSTEM. 




20 


Channel number of tape punch ^ 




FWA MEM p 


Request first word address of available memory 


22 


First word following required interrupt locations 


LWA MEM ? 


Request last word address of available memory 


17677 


Word preceding basic loader (8K memory) 


*LOAD 


Request to load first BCS module 
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LOADING THE I/O EQUIPMENT DRIVERS 


COMMUNICATIONS 


REMARKS 


D.21 
16220 17677 


^ MAGNETIC TAPE DRIVER PROCESSED^ 

^ MEMORY BOUNDS OF THE DRIVER 


^ LOAD 


REQUEST TO LOAD NEXT MODULE 


D.01 
15661 16217 


PHOTO -READER DRIVER PROCESSED 


* LOAD 




O>02 
15351 15660 


TAPE PUNCH DRIVER PROCESSED 


)i LOAD 




0*00 

14615 15350 


TELEPRINTER DRIVER PROCESSED 


^ LOAD 


WHEN PRESENT, THIS DRIVER SHOULD BE 
LOADED FIRST DUE TO ITS LARGE SIZE 
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LOADING THE IOC MODULE 



COMMUNICATIONS 



IOC 

1 4376 14614 



TABLE ENTRY 

EOT? 
12»D.01 

14tD*00 
10,0-21 
/E 



SQT? 

-KYBD? 

11 

-TTYp 
11 

-LIB? 
7 

-PUNCH? 
10 

-INPUT? 
7 

-LIST? 
11 



DMA? 



^ LOAD 



REMARKS 



IOC MODULE 
PROCESSED 



EQUIPMENT TABLE 
UNIT# 

7 
1 
1 1 
1 2 



STANDARD UNIT 
TABLE 



DIRECT MEMORY 
ACCESS OPTION. 
INDICATES DMA 
NOT AVAILABLE. 




DRIVER IDENTIFICATION 


D.21 






INTERRUPT LOCATION 


10 


n 


12 


13 


14 


LINKAGE LOCATION 


15 


16 


17 


20 


21 


INTERRUPT IDENT. 


1.21 


C.21 


1.01 


1.02 


1.00 


EQUIPMENT 
TABLE — > 


12 




7 


10 


11 


















STANDARD \ 
UNIT TABLE \ 




1. 


KEYBOARD INPUT 












2. 


TELEPRINTER OUTPUT 














PROGRAM LIBRARY 












4. 


PUNCH OUTPUT 












5 


INPUT 












6. 


LIST OUTPUT 
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THE RELOCATING LOADER MODULE 



DRIVER IDENTIFICATION 


D.21 




D.01 


D.02 


D.00 


INTERRUPT LOCATION 


10 


11 


12 


13 


14 


LINKAGE LOCATION 


15 


16 


17 


20 


21 


INTERRUPT IDENT- 


1.21 


C.21 


1.01 


1.02 


1.00 



COMMUNICATIONS 

LOADR 
12115 14346 

INTERRUPT LINKAGE? 



10,15,1,21 

11, 16, C.21 

12,17,1.01 /ERROR\ 

^UN NAME V 0;^ / 

12,17,1.01 

13,20,1.02 

14,21 ,1 .00 

/E 



LIST TERMINATOR 



MEANING 

ADDRESS OF SYSTEM TABLE 
ADDRESS OF EQUIP. TABLE 
I/O DRIVER - 

INITIATOR 
AND 

CONTINUATOR 

ENTRY POINTS 

MAINTAINS COMPATABILITY BETWEEN "l 

BUFFERED AND UNBUFFERED VERSIONS f 
OF I.O.C. J 

ADDRESS OF .TOC, ENTRY POINT 
DMA STATUS WORD CHi^l 
DMA STATUS WORD CH #Z 
ADDRESS OF I/O ERROR HALT 
SYSTEM TABLE LINK WORD 
EQUIPMENT TABLE LINK WORD 
RELOCATING LOADER ENTRY POINT 
ADDRESS OF MEMORY TABLE^ 
LOADER SYMBOL TABLE ADDRESS 



ENTRY POINT LIST 



.SQT. 


14347 


.EQT. 


1 4355 


D* 21 


1 6220 


1.21 


1 f ^ 1 D 


C ♦ 21 




D*01 


1 5661 


1.01 


15776 


D.02 


15351 


1.02 


15465 


• BUFR 


14544 


D.00 


14615 


1*00 


14771 


.I0C. 


14376 


DMAC1 


14613 


DMAC2 


14614 


lOERR 


14572 


XSQT 


146t1 


XEQT 


14612 


.LDR. 


1 3601 


.MEM. 


14342 


LST 


12141 



JfSYSTEM LINK 
00022 00153 



MEMORY TABLE 

FWABP 

LWABP 

FWAM 

LWAM 



^BCS ABSOLUTE OUTPUT 
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ADDITIONAL P.C.S./B.C.S. CAPABILITIES 



SITTING CONSTANTS INTO INTERRUPT LOCATIONS 



10. 15.1.00 
1 1. 16. 1.0 4 
12.17, 1.02 
13, 106713 
14. 



LOC. 

These entries will cause P.C.S. to do this 13 

14 



CONTENTSg 

106713 



SPICIPYINO INTERRUPT AND/OR SYSTEM ROUTINES AS EXTERNAL 



11, 16,1.04 
X UN NAME 
I 

11,16,1.03 



Original input entry. 

P.C.S. diagnostic message. 

Response to establish the name as external. 
— OR — 

Response to indicate a corrected input entry. 



SPECIFYING I/O DRIVERS AS EXTERNAL 

r/0 DRIVER ? 



D. XX 
I 



PCS. diagnostic message indicating the referenced 
driver has not been loaded. 

Response to define the driver as external 



^ UNDEFINED SYMBOL! 
XXXX 



PCS. diagnostic caused by specifying a driver as external. 
The computer will holt. Push run to continue. 

Each undefined symbol is given the dummy address 77777. 
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SYSTEM INPUT-OUTPUT DUMP ROUTINE 



(SYSTEM INPUT OUTPUT) 



S.I.0 
TELEPRINTER 
DRIVER ' 



SJ.O. 
TAPE READER 
DRIVEP 2 




S.T.O 

TAPE PUNCH 
DRIVEP 



S.I.O. 

DUMP 4 



PHASE 1 





HEtEH-PACKARD 

COMPUTER 




/ 


► 



CONFIGURED 
S.I.O. DRIVER 
TAPE 



STANDARD SOFTWARE SYSTEMS 



FORTRAN 
ALGOL 
ASSEMBLER 

eN/iiDoi i#- crMxrko CONFIGURED 
SYMBOLIC EDITOR s.TO DRIVER 

TAPE 1 



STANDARD 
SOFTWARE „ 
SYSTEM 2 



S.I.O. 

DUMP 3 



PHASE 2 
(optional) 




HEtETI-PACKARD 




COMPUTER 


^ 



CONFIGURED 
STANDARD SOFT- 
WARE SYSTEM 
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SXO. MEMORY MAP 


07700 OR 17777 


BASIC BINARY LOADER 




/ S.T.oA 

(drivers) 


TELEPRINTER DRIVER 




PHOTO-READER DRIVER 






TAPE PUNCH DRIVER 






PROGRAM AVAILABLE MEMORY 




2000 






BASE PAGE AVAILABLE MEMORY 






LWA OF AVAILAdLE l¥lEf¥l\^KT 




/SYSTEM\ 105 


FWA OF AVAILABLE MEMORY 




[linkage] 
Viable 7 


KEYBOARD INPUT DRIVEIt ADDRESS 




PUNCH OUTPUT DRIVER ADDRESS 




102 


LIST OUTPUT DRIVER ADDRESS 




101 


INPUT DRIVER ADDRESS 




100 


STND SOFTWARE SYSTEM JMP INST. 







I/O RESERVED LOCATIONS 
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CONFIGURING A PROGRAM SYSTEM 



THE SYSTEMS TO BE CONFIGURED 

• ASSEMBLER SYSTEM 

• SYMBOLIC EDITOR SYSTEM 

• FORTRAN COMPILER SYSTEM- PASS 1 TAPE ONLY 

• ALGOL COMPILER 

THE S.I.O. DRIVERS (ONLY PROVIDED WHEN I/O DEVICE ORDERED) 

• TELEPRINTER 

• TAPE READER 

• TAPE PUNCH 

THE PROCEDURE (BASIC BINARY LOADER USED FOR ALL MODULE LOADING) 

1. LOAD A DRIVER. (THE TELEPRINTER MUST BE LOADED FIRST) (PHOTO READER SECONDKPUNCH LAST) 

2. PLACE THE ADDRESS 2 INTO THE P- REGISTER; SET SWITCHES 5-0 OF THF SWITCH REGISTER 
TO THE CHANNEL NUMBER ASSOCIATED WITH THAT DEVICE AND PRESS RUN. 



3. REPEAT ABOVE STEPS FOR EACH DRIVER TO BE INCLUDED. 

4. LOAD THE PERTINENT PROGRAMMING SYSTEM. 

5. LOAD THE S.I.O, DUMP ROUTINE. 

6. PLACE THE ADDRESS 2 INTO THE P-REGISTER & SET SWITCH 15 OF THE SWITCH REGISTER 
TO OBTAIN THE FOLLOWING OPTIONS: 

= OUTPUT TO CONTAIN ONLY S.I.O. DRIVERS AND SYSTEM LINKAGE TABLE. 

1 = PROGRAM SYSTEM IS TO BE INCLUDED ON OUTPUT. 

7. PRESS RUN TO COMMENCE PUNCH -OUT. 

8. MULTIPLE COPIES MAY BE OBTAINED BY REPEATING FROM SWITCH 15 SETTING OF STEP 6, 
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LESSON xn 

INTRODUCTION TO HP BASIC 



Objectives 
Instant BASIC 

BASIC Operating Environment 
Using HP BASIC 

The BASIC Language Components 

Statements 

Functions 

Constants, Variables, Line Numbers 
Executable Statements - LET and PRINT 
Example - Using the LET and PRINT Statements 
The GO TO Statement 
The IF Statement 

Input/Output Statements READ and DATA 
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Example - Using the READ and DATA Statements 


12-14 


12-2 


The INPUT Statement 
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12-3 


Example - Using the INPUT Statement 
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12-4 


The FOR and NEXT Statements 
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12-5 


Example - Using the FOR and NEXT Statements 
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12-6 


Using Subroutines 


12-19 


12-7 


System Control Statements 


12-20 


12-8 


Helpful Hints 
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12-9 


Data Formatting 


12-22 


12-10 


The Tab Feature 


12-23 


12-11 


Error Diagnostics 
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12-12 


Single Terminal BASIC 
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LESSON XH OBJECTIVES 



THE PRINCIPLE OBJECTIVES OF LESSON Xn ARE: 



1. TO INTRODUCE THE STUDENT TO THE ELEMENTS OF 
THE HEWLETT- PACKARD SINGLE TERMINAL BASIC 
COMPILER. 

2. TO PRESENT THE LANGUAGE AND OPERATING 
CAPABILITIES IN SUFFICIENT DETAIL TO PERMIT THE 
STUDENT TO CREATE SOLUTIONS TO SIMPLE PROBLEMS 
WITH RELATIVELY LITTLE INSTRUCTION TIME REQUIRED. 

3. TO ILLUSTRATE THE EASE AND FLEXIBILITY OF USING 
THE SYSTEM, BY PROVIDING SAMPLE PROBLEM 
SOLUTIONS, FOR ANALYSIS, AND SUGGESTIONS FOR 
PROGRAMMING. 

NOTE: THE "BASIC" LANGUAGE WAS DEVELOPED BY DARTMOUTH COLLEGE, 
UNDER THE DIRECTION OF PROFESSORS JOHN G. KEMENY AND 
THOMAS E. KURTZ. THE HEWLETT-PACKARD BASIC COMPILER IS AN 
ADAPTATION OF THAT DEVELOPMENT. 
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HEWLETT PACKARD 

instant basic 

(SINGLE TERMINAL SYSTEM) 




saves lime 
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BASIC OPERATING ENVIRONMENT 
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USING THE HP 1 


BASIC LANGUAGE 




NOTE 


READY 






i0 FOR N = 1 TO 7 


1. 


CONVERSATIONAL MODE 


20 PRINT N, SQR (N) 


2. 


EACH STATEMENT MUST HAVE 


31 NEXT N 




A STATEMENT NUMBER WHICH 


43 PRINT "done" 




IDENTIFIES ITS SEQUENCE WITHIN 


50 END 




THE PROGRAM. 


3. 


FREE FORM -SELF TEACHING 




4. 


ALL STATEMENTS ARE TERMINATED 
BY (CR) 




5. 


THE HIGHEST NUMBERED STATEMENT 
MUST BE AN END STATEMENT. 
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THE BASIC LANGUAGE COMPONENTS 



COtSMS 



< 


T 

1 


< = 




1 
1 




> 


1 

1 


> = 



EXECUTABLE 
•SYSTEM CONTROL 



VARIABLES 



OPERATORS 



RELATIONS 



STATEMENTS 



SPECIAL 
CHARACTERS 



FUNCTIONS 





ADDITION 




SUBTRACTION 




MULTIPLICATION 


/ 


DIVISION 


t 


EXPONENTIATION 



UJ) DELETE LAST 
^ CHARACTER 

^DELETE 

CURRENT LINEI 




40DE 
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STATEMENTS 






ARITHMETIC 




• LET 


• LIST 




• RUN 


CONTROL 




• 60 TO 


• SCRATCH 


• IF 


• STOP 


• FOR 




• NEXT 




• END 




INPUT/ OUTPUT 




• READ 




• DATA 




• PRINT 




• INPUT 
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FUNCTIONS 



SIN (X) 


SINE X 


COS (X) 


COSINE X 


TAN (X) 


TANGENT X 


ATN (X) 


ARCTANGENT X 


EXP (X) 


e>^ 


LOG (X) 


Ln X 


ABS (X) 


Absolute value of x 


SQR (X) 




INT (X) 


iNTeger part of x 


S6N (X) 


Sign of X 
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CONSTANTS 

ALL NUMBERS ARE REPRESENTED IN THE COMPUTER IN 
FLOATING-POINT FORMAT THE RANGE IS -10^® TO 10'®. 

EXAMPLES: 3,5.7. -65 

1.5, 14.7E-2, .45E7, i000 



VARIABLES 

GENERAL FORM: ^X 

P MUST BE A LETTER (A-Z) 

WHLKt ^ ^^jg^j. ^ NUMERIC (0-9) 



EXAMPLES: 



B2, K2, K6, R7, Z, F 



LINE NUMBERS 

•1 < Line # < 9999 
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STATEMENTS > executable 



> 



ARITHMETIC — the LET statement 



GENERAL FORM; line # LET variable = formula 
EXAMPLE: 152 LET X = 12.0 

301 LET A1 = 4 -H 3 ^ X 

451 LET Z = {TAN(X) tA1)/88.98 



INPUT- OUTPUT - the PRINT statement 



variable 

GENERAL FORM; llne # print formula 

message 



EXAMPLE; 657 PRINT A1:X 

737 PRINT TAN(X); (4-)65) t 2; A1 

808 PRINT "START PROCESS ", A1XC0S(X), 367 
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EXAMPI 


LE 




CENTIGRADE 


TO FAHRENHEIT CONVERSION 








10 


LET C= 








r - Q / K P J. o 
r - y / O t 








/ 20 


LET F = 9/5XC+32 








/ 30 


PRINT "for C - ";C; 


"then f= ";f 


140 






LET C s 20 






/ 35 




1 30 










120 




/ 40 


LET F= (9/5)X-C + 32 










110 


/ 


45 


PRINT "FOR c = ";c; 


TntN r - , r 


100 




• 

• 


• 




90 




150 


LET C = 60 




80 










70 




FOR C= 0,20, 40, 60 155 


LET F= 9/5itC+32 




0(0 




FIND THE VALUE OF F '60 


PRINT "FOR c = "; c; 


"then f = "; 


50 




170 


PRINT 9/5^«-C+32 




40 
















ETC 




20 










^^10 


1 1 1 1 










10 20 30 40 50 60 







12-10 



Programming Course 
Students Manual 



LESSON 3ir 
Introduction to HP Basic 



THE GO TO STATEMENT 



GENERAL FORM: 



line 60 7D line # 



EXAMPLE: 



m GO TO 35 



EXAMPLE 



20 . 



F= 9/5 C+32 




FOR C= 0,20, 40, 60 
FIND THE VALUE OFF 



J. 



10 


LET C 


= 


20 


LET F 


= 9/5-)fC + 32 


30 


PRINT 


"FOR c ="; c 


40 


LET C 


= C + 20 


50 


GO TO 


20 


99 


END 





10 20 30 40 50 60 
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THE IF STATEMENT 



GENERAL FORM: line # IF-jformula^ -jrelation^-^orm THEN -jiine 



EXAMPLE'- 



F= 9/5 C+32 




FOR C= 0,20, 40, 60 
FIND THE VALUE OFF 



10 IF (A+B))tC < Tt 2 THEN 461 

EXAMPLES: 20 IF k > 4.? then 34 

30 IF X < = SQR(6932) THEN 90 



10 LET C = 

20 LET F = 9/5 ^tC + 32 

30 PRINT "FOR C = "; C; "THEN F="; F 

40 LET C = C+20 

50 IF C < = 60 THEN 20 

60 PRINT "THAT IS IT" 

99 END 



10 20 30 40 50 60 
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INPUT OUTPUT STATEMENTS 



THE READ STATEMENT 
THE DATA STATEMENT 



GENERAL FORM! Iine# read {variable. variable, variable....} 

line^ DATA {value, value, value } 



example: 



example; 



READ A 
DATA 2 



1, A 2, A3, A4, as"! 
, 13, 4, 8, ^.7E^\ 



A 1 = 2 A3 = 4 
A2= 13 A4 = 8 
A5= 1.7E2 

READ Al, A2, A3, A4, A5 
DATA 2, 13, 4 
DATA 8, 1.7E2 
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EXAMPLE 
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THE INPUT STATEMENT 



GENERAL FORM', 



line# 



INPUT variable variablej-.-'-v-j^ variable 



examples; 



35 INPUT Al, A2, A3 

56 INPUT 81 , B, C, X, A(3) 
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EXAMPLE 
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THE FOR AND NEXT STATEMENTS 


GENERAL FORM! 






Ilne# FOR 


•^Variably- = - 


r "1 r "1 r 1 

[formuloj^ TO ^formuloj- STEP ^formula/ 


llne# NEXT 


■^arioblej 




example; 






f Do 


CAD A *X — Tr\ 

rUn AO - D + 7 lU 


o X 2 1 5 1 tr 2 




NcXl AO 




example: 






333 


FOR A7 = 3 TO 10 


STEP 1 


360 


LET A9 = A7 f 2 




370 


PRINT A7, A9 




400 


NEXT A7 
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EXAMPLE 
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USING SUBROUTINES 



THE GO SUB STATEMENT 



GENERAL FORM! 60 SUB line# 




GENERAL FORM: RETURN 




10 PRINT "read first SET OF VALUES" 



20 GO SUB 666 

30 PRINT "read SECOND SET OF VALUES" 

40 60 SUB 666 

50 PRINT "read third SET OF VALUES" 

55 GO SUB 666 

60 GO TO 777 

666 INPUTA.B.C 

676 IF A< = THEN 777 

686 IFB< = THEN 777 

696 IF C< = THEN 777 

700 RETURN 

777 END 




THE RETURN STATEMENT 
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SYSTEM CONTROL STATEMENTS 



LIST 


^ f^FMFRAI FORM' 


Lib 1 1 line W r 




example: list 


30 LIST FROM STATEMENT 30 UNTIL 
THE END STATEMENT 




tXAMrLt. LIST 


LIST THE ENTIRE PROGRAM 




w- GENERAL FORMi 


SCRATCH 

IT DELETES THE CURRENT PROGRAM 
IN MEMORY 


RUN 


^ f^FNPRAi FORM' 


IT STARTS EXECUTION OF THE PROGRAM 


STOP 


► GENERAL FORM! 


STOP 

IT STOPS EXECUTION OF THE PROGRAM 
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HELPFUL HINTS 

FREQUENTLY TYPING ERRORS TAKE PLACE AND 
CORRECTIONS ARE NEEDED, THEREFORE! 

1- ALT MODE KEY DELETES CURRENT LINE 

EXAMPLE 37 LET A-B+CX-^^TYPED BY BASIC TO INDICATE 

DELETION 

2. DELETES THE PREVIOUS CHARACTER 

EXAMPLE 42 FER OR X = 3 TO 7 STEP 0. ^ 

(42 FOR X = 3 TO 7 STEP (J.i ) 

3- TO DELETE A LINE, TYPE THE LINE # WITH @) 

EXAMPLE 151 @ 
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DATA FORMATTING 

(^SPECIAL USE OF THE COMMA AND SEMI-COLON) 

WHEN USING PRINT COMMANDS THE TELETYPE IS DIVIDED INTO 5 
ZONES STARTING AT POSITIONS 0, 15,30,45, AND 60. 

COMMA- CONTROLS PRINT ZONES FROM POSITIONS 0, 15,30,45 AND 60. 

$EMI-CQLQN-iNHiBiTs zone spacing. 



1. 



35 FOR X=4 TO 10 STEP 2 
60 PRINT X, X + 1 
70 NEXT X 



DATA 



a4 
6 
8 
10 



PRINT 
POSITIONS 



5 
7 
9 
11 



15 



EXAMPLES 



35 
60 
70 



FOR X=4 TO 
PRINT X, X 
NEXT X 



STEP 2 



OUTPUT RESULTS 



a4 a5 a6 a7 a 8 
10 All 



15 30 45 60 



35 FOR X=4 TO 10 STEP 2 
40 PRINT X; X + 1 
70 NEXT X 



a4 a 5 


i6 


i 7 


8 


9 


10 


11 



35 FOR X=4 
40 PRINT X 
70 NEXT X 



TO 10 STEP 2 

: X + 1 : 



A4A5A6 A 7 A8 A9 AiOAll 



6 12 18 24 30 36 42 



NOTE : A= space 
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THE 


TAB FEATURE 




GENERAL FORM! 


TAB ( POS # ) 








example: 


PRINT 


THE MESSAGE 


"THREE' 


BEGINNING 


IN 




POSITION 36 AND TH 


E VALUE 


FOR 10+3 t 


IN 




POSITION 48 










17 PRINT TAB (36), " 


THREE", 


TAB (48), 10+3 t 2 






THREE 


A19 










t 


t 










Position Position 










36 


48 
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ERROR DIAGNOSTICS 



format; error xx in line 



9 
10 
11 
12 
13 



MISSING OR INCtmrrccT — rrrmyi 
MISSING PARAMETER IN DEF STATEMENT. 
MISSING ASSIGNMENT OPERATOR. 
MISSING THEN. 

MISSING OR INCORRECT FOR-VARIABLE-^ 



14 MISSING TO. 

15 INCORRECT STEP IN FOR STATEMENT. 



16 CALLED ROUTINE DOES NOT EXIST. 

17 WRONG NUMBER OF PARAMETERS IN CALL STATEMENT. 

18 MISSING OR INCORRECT CONSTANT IN DATA STATEMENT. 

19 MISSING OR INCORRECT VARIABLE IN READ STATEMENT. 

20 NO CLOSING QUOTE FOR PRINT STRING. 

21 MISSING PRINT DELIMITER OR BAD PRINT QUANTITY. 

22 ILLEGAL WORD FOLLOWS MAT. 

23 MISSING DELIMITER. 



24 IMPROPPL-»**^=cLLx_EUWX 
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SINGLE TERMINAL BASIC 



LOADING INSTRUCTIONS 



FOR l| 



• LOAD ADDRESS 017700 

• ENABLE LOADER 

• PRESS PRESET a PRESS RUN 

• IS "t" REG = 102077? 

• NO -LOADING ERROR, RESTART 

• YES -PROTECT LOADER 





H-P COMPUTER 



FOR 2 



• LOAD ADDRESS 000100 

• PRESS PRESET/ PRESS RUN 

•"ready" on TTY 



EXECUTION OPTIONS 



FOR OPTION A 



• PLACE SOURCE PROGRAM ON RR. 
•TYPE "PTAPE" 
PROGRAM IS READ FROM RR. 
a COMPUTER TYPES "ready" 



BASIC SOURCE 

PROGRAM 




H-P COMPUTER 



FOR OPTION B 



•TYPE "PLIST" 

•program is PUNCHED ON PAPER 
TAPE a COMPUTER TYPES "ready' 




re 



FOR OPTION C 



copy OF SOURCE 
ROGRAN 



•PLACE SOURCE PROGRAM ON TTY RDR 
•TYPE "tape" 

•PROGRAM IS READ FROM TTY a COMPUTER TYPES 
READY 
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World-Wide 
Hewlett-Packard 

Sales & Service Call your HP Computer Specialist 

at any of these convenient locations: 



UNITED STATES- 

ALABAMA 
Huntsville 
Tel: (205) 881-4591 

ARIZONA 
Scottsdale 
Tel": (602) 945-7601 
Tucson 

Tel: (602) 298-2313 

CALIFORNIA 
North Hollywood 
Tel: (213) 877-1282 
Palo Alto 

Tel: (415) 327-6500 

Sacramento 

Tel: (916) 482-1463 

San Diego 

Tel: (714) 223-8103 

COLORADO 
Englewood 
Tel: (303) 771-3455 

CONNECTICUT 
East Hartford 
Tel: (203) 289-9394 
Norwalk 

Tel: (203) 853-1251 



CANADA 

ALBERTA 



DELAWARE 
Wilmington 
Tel: (302) 655-6161 

FLORIDA 
Miami Shores 
Tel: (305) 754-4565 
Orlando 

Tel: (305) 841-3970 
St. Petersburg 
Tel: (813) 391-0211 

GEORGIA 
Atlanta 

Tel: (404) 436-6181 

ILLINOIS 

Skokie 

Tel: (312) 677-0400 

INDIANA 
Indianapolis 
Tel: (317) 546-4891 

LOUISIANA 
Kenner 

Tel: (504) 721-6201 

MARYLAND 
Baltimore 
Tel: (30^) 944-5400 
Rockville 

Tel: (301) 948-6370 



MASSACHUSETTS 
Lexington 
Tel: (617) 861-8960 

MICHIGAN 
Southfield 
Tel: (313) 353-9100 

MINNESOTA 
St. Paul 

Tel: (612) 645-9461 

MISSOURI 
Kansas City 
Tel: (816) 333-2445 
St. Louis 

Tel: (314) 962-5000 

NEW JERSEY 
Paramus 

Tel: (201) 265-5000 

Cherry Hill 

Tel: (609) 667-4000 

NEW MEXICO 
Albuquerque 
Tel: (505) 255-5586 
Las Cruces 
Tel: (505) 526-2485 



NEW YORK 
Albany 

Tel: (518) 869-8462 
Endicott 

Tel: (607) 754-0050 

Poughkeepsie 

Tel: (914) 454-7330 

Rochester 

Tel: (71 6) 473-9500 

Roslyn, Long Island 

Tel: (516) 869-8400 

Syracuse 

Tel: (315)454-2486 

NORTH CAROLINA 
High Point 
Tel: (919) 882-6873 

OHIO 
Cleveland 
Tel: (216) 884-9209 
Dayton 

Tel: (513) 298-0351 

OKLAHOMA 
Oklahoma City 
Tel: (405) 848-2801 



OREGON 
Portland 

Tel: (503) 292-9171 

PENNSYLVANIA 
Monroeville 
Tel: (412) 271-0724 
West Conshohocken 
Tel: (215) 248-1600 

TEXAS 
Richardson 
Tel: (214) 231-6101 
Houston 

Tel: (71 3) 667-2407 

San Antonio 

Tel: (512) 434-4171 

UTAH 

Salt Lake City 
Tel: (801) 486-8166 

VIRGINIA 
Richmond 
Tel: (703) 282-5451 

WASHINGTON 
Bellevue 

Tel: (206) 454-3971 



Edmonton 

Tel: (403) 482-5561 

BRITISH COLUMBIA 
Vancouver 
Tel: (604) 731-5301 



MANITOBA 
St. Janies 
Tel: (204) 786-7581 

NOVA SCOTIA 
Halifax 

Tel: (902) 455-0511 



ONTARIO 
Ottawa 

Tel: (613) 722-4223 
Toronto 

Tel: (416) 249-9196 



QUEBEC 
Pointe Claire 
Tel: (514) 6r' 32 



CENTRAL AND SOUTH AMERICA _ 

ARGENTINA BRAZIL 
Buenos Aires Sao Paulo 

Rio de Janeiro 

EUROPE 

BELGIUM 
Brussels 



MEXICO 
Mexico City 



VENEZUELA 
Caracas 



DENMARK 
Naerum 

FINLAND 
Helsinki 



FRANCE 

Orsay 
Lyon 

GERMANY 
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SWITZERLAND 
Zurich 

Meyrin-Geneva 
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AUSTRALIA JAPAN 
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Sydney Nagoya 
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Perth, W. A. 

FOR EUROPEAN AREAS NOT LISTED, CONTACT: 

Hewlett-Packard S.A., Rue du Bois-du-Lan 7, 
1 21 7 Meyrin-Geneva, Tel: (022) 41 54 00 

1=0R OTHER AREAS NOT LISTED, CONTACT: 

Hewlett-Packard Export Marketing, 3200 Hitlview Ave., 
Palo Alto, California 94304, U.S.A.; Telex: 034-8461, 
Cable: HEWPACK Palo Alto. 
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